Дан массив М(12) вывести элементы,оканчивающиеся нулем
5-9 класс
|
Program pr;
Var M:array[1..12] of integer;
i:integer;
Begin
for i:=1 to 12 do readln(M[i]);
Writeln;
for i:=1 to 12 do
if M[i] mod 10=0 then Write(M[i],';');
end.
Другие вопросы из категории
чисел, вводимых с клавиатуры, на 3. Паскаль.Рекурсия
Читайте также
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.