Дан массив из 10 элементов. Подсчитать сумму трехзначных элементов массива, оканчивающихся нулем.
5-9 класс
|
1 2 3 4 5 6 7 8 9 10 11 12 13 var
var
a:array [1..10] of integer;
s,i:integer;
begin
for i:=1 to 10 do begin
write ('A[',i,'] = ');readln(a[i]);
if (a[i] mod 10 = 0) and (a[i] div 100 in [1..9]) then s:=s+a[i];
end;
writeln ('Summa: ',s);
readln;
end.
Другие вопросы из категории
45 внизу 10
82 внизу 10
101011 внизу 2
1110 внизу 2
и объясните
Читайте также
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.