Дан массив целых чисел. Найти номера элементов, окан
10-11 класс
|
чивающихся цифрой 0 (известно, что такие элементы в мас
сиве есть) в паскале
var
mas:array[1..100] of integer;
i,n:integer;
begin
readln(n);
for i:=1 to n do
read(mas[i]);
for i:=1 to n do
begin
if mas[i] mod 10 = 0 then
write(i,' ');
end;
end.
Другие вопросы из категории
Массив из 15 элементов заполнить случайными четными числами в интервале от -25 до 70. Вывести полученный массив на экран в строчку.Найти сумму наибольшего и наименьшего элементов массива. (Использовать пузырьковую сортировку).
страниц этого текста?
спрятали.Кто из гномов может определить цвет надетого на него капюшона?
Читайте также
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
Найти номер первого отрицательного элемента, делящегося на 5 с остатком 2.напишите пожалуйста программу в лазарусе
Удалить из него все элементы, в записи которых есть цифра 5.
Вставить число k после всех элементов, кратных своему номеру (k вводится с клавиатуры).
Поменять местами первый положительный и последний отрицательный элементы.