program n1;uses crt;var aw:array[1..10]ofinteger;
i,w,g:integer;begin
g:=0;
w:=10;for i:=0+1to w dobegin
aw[i]:=random(100);write(aw[i]:6);end;writeln();write('Чот');for i:=0+1to w dobeginif aw[i]mod2=0then g:=g+1;end;write('Всего чотных чисел ',g);writeln();write('Не чот');
g:=0;for i:=0+1to w dobeginif aw[i]mod2 > 0then g:=g+1;end;write('Всего не чотных чисел ',g);end.
Школьников отправили на распределение яблок из кучи. Количество яблок в куче не известно. Распределяют яблоки на 4 корзины. 1(Красные), 2(Зеленые), 3(Желтые), 4(Испорченные).
Требуется написать программу для распределения и подсчета яблок в каждой корзине и куче. Количество яблок в куче должно быть рандомизировано.
Если цифра один, то в первую корзину ,если 2 то во вторую ,а если 3 ,то в 3 ,ну а если 4 то в 4 (когда выпадает ноль то все конец).
Я точно как не понял по вашему описанию так как вы написали что что должно быть рандомизировано но при этом чтобы на 0 был конец программы также я не понял ну чот написал просьба ответить так надо или нет!!!
Нужно создать массив. Элементы вводятся с клавиатуры, а вывести каждый элемент, увеличен в два раза, причем на первой строке вводится количество элементов (не более ста), а на второй - сами элементы. Если с увеличением в два раза я справится могу, то не знаю что делать с количеством элементов. Объясните пожалуйста!
const
n =10;//Константа для массиваvar
a:array[1..n]ofinteger;//Обявили массив от 1 до 10(n)
i, min, max:integer;beginfor i :=1to n do// Включили счетчик для ввода чисел в массив от 1 до nbeginWrite('Введите число ', i,' в массив: ');Readln(a[i]);end;// Алгоритм вычисления минимального элемента
min := a[1];for i :=2to n do// Начали с 2, т.к мы присвоили переменной min первое значениеbeginif a[i] < min then
min := a[i];end;// Алгоритм вычисления максимального элемента
max := a[1];for i :=2to n dobeginif a[i] > max then
max := a[i];end;Writeln('Максимальный элемент: ',max);Writeln('Минимальный элемент: ',min);Writeln('{ВЫВОДИМ МАССИВ}');for i:=1to n do//Счетчик на вывод массиваbeginWriteln(i ,' элемент: ',a[i]);end;end.
Заполните целочисленный массив m, состоящий из n элементов, значениями, которые равны порядковому номеру элемента. Выведите результат на экран двумя способами.
вычислить сумму и количество элементов массива x больших по абсолютной по величене заданного числа a где a больше 0. эллементы массива вычисляются по формуле Xi=i^2-10i+1 где i=1,2,...,10
Для массива X(m) напечатать сумму, произведение и номера положительных элементов после последнего нулевого элемента. Данные для ввода: m=7, X(1;0;4;0;-1;2;3)
Массив с(15) заполнен целыми случайными числами в диапазоне от 0 до 100. Массив-мамку м(15) заполнить 0 и 1, расположенными случайным образом. Найти максимальный элемент MAX массива С по нулям массива маски М, а так же его индекс К. Вывести С, М, МАХ, К.
Занести введённые с кл-ры числа в массив А(5х5) так чтобы : 1) 5 первых введённых числа были по главной диагонали , а остальные по побочной
2) подсчитать произведение всех элементов нах-ся в 5 строке
Дан динамический массив целых чисел, массив матрица. Найти максимальное и минимальное число и поменять местами. Главная диагональ - все числа заменить 0, под главной диагональю поставить 1, а над ней поставить сумму чисел кратную 2.
Как вывести определённое количество чисел массива? Нужно вывести 5 чисел.
Задача:
Заполните массив случайными числами в интервале [0,5]. Введите число X и найдите все значения, равные X.
Пример№1:
Массив:
1 2 3 1 2
Что ищем:
2
Нашли: A[2]=2, A[5]=2
Пример№2:
Массив:
1 2 3 1 2
Что ищем:
6
Ничего не нашли.
Комментарии
Сколько значений чётных в массиве и сколько нечётных
Заполнить массив случайными числами из промежутка 1-100 и определить в массиве, сколько значений чётных и сколько нечётных.
Решение
Ответ на Сколько значений чётных в массиве и сколько нечётных от Гость (не проверено)
В каждой строке заменить все восклицательные знаки точками.
Решение
Ответ на В каждой строке заменить все восклицательные знаки точками. от Гость (не проверено)
Задача
Решение
Ответ на Задача от Гость (не проверено)
Я точно как не понял по вашему описанию так как вы написали что что должно быть рандомизировано но при этом чтобы на 0 был конец программы также я не понял ну чот написал просьба ответить так надо или нет!!!
Решение через массив
Ответ на Задача от Гость (не проверено)
Нужно создать массив с произвольным количеством элементов
Нужно создать массив. Элементы вводятся с клавиатуры, а вывести каждый элемент, увеличен в два раза, причем на первой строке вводится количество элементов (не более ста), а на второй - сами элементы. Если с увеличением в два раза я справится могу, то не знаю что делать с количеством элементов. Объясните пожалуйста!
Ответ
Ответ на Нужно создать массив с произвольным количеством элементов от Гость (не проверено)
где n- количество элементов, а m- сами элементы.
Массив
Написать программу, которая запрашивает с клавиатуры 10 чисел. Найти номер максимального элемента и минимальный элемент. Вывести массив в столбик.
program m1;…
Ответ на Массив от Гость (не проверено)
Ответ
Ответ на Массив от Гость (не проверено)
Задача
Заполните целочисленный массив m, состоящий из n элементов, значениями, которые равны порядковому номеру элемента. Выведите результат на экран двумя способами.
В исходном массиве…
В исходном массиве подсчитать количество чётных и не чётных элементов,положительных и отрицательных элементов,количество нулей диапазон -100,100.
Ответ
Ответ на В исходном массиве… от Гость (не проверено)
Составьте программу, дающую…
Составьте программу, дающую ответ "да" или "нет" в зависимости от того встречается или нет число "а" в одномерном числовом массиве.
For i:=1 to n do…
Ответ на Составьте программу, дающую… от Гость (не проверено)
D[1..30]. Сколько чисел со…
D[1..30]. Сколько чисел со значениями >50?
const n=30;…
Ответ на D[1..30]. Сколько чисел со… от Гость (не проверено)
паскаль
Массивы
Массивы
обработка массивов
Заполнить массив А 10…
Массивы
Напишите программу определения суммы четных чисел элементов массива (массив из 30 случайных чисел в диапазоне от 0 до 30).
Найти сумму элементов данного массива.
Одномерный целочисленный массив из 10 элементов задан случайным образом на отрезке [0.100].
Для массива X(m) напечатать…
Для массива X(m) напечатать сумму, произведение и номера положительных элементов после последнего нулевого элемента. Данные для ввода: m=7, X(1;0;4;0;-1;2;3)
массивы
Напишите программу, которая заполняет массив случайными числами на отрезке [–2; 2] и считает сумму положительных элементов массива.
замена символов массива
Дан одномерный массив из n элементов, члены которого заданы случайным образом. Заменить все большие 7 члены массива числом 3.
Двухмерные масивы
Заменить каждый четный отрицательный элемент массива M(n,m) на произведение элементов побочной диагонали. Вывести количество замен.
Массивы
Массив
Массив с(15) заполнен целыми…
Занести введённые с кл-ры…
Одномерные массивы
В векторе В найти числа,…
Задание
Pascal.Array.