Дан массив из 20 целых чисел заполненный случайным образом от 10 до 99 . Найти сумму десятков( пример:первых чисел из 19 и 23 найти сумму 1 и 2)
Дан массив из 20 целых чисел заполненный случайным образом от 10 до 99 . Найти сумму десятков( пример:первых чисел из 19 и 23 найти сумму 1 и 2)
Гость
Ответ(ы) на вопрос:
Гостьconst n=20;
var a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(90)+10;
write(a[i]:3);
end;
writeln;
s:=0;
for i:=1 to n do
s:=s+a[i] div 10;
writeln('s = ',s);
end.
Пример:
22 88 88 98 54 78 45 89 23 39 13 17 15 38 56 80 51 31 20 30
s = 88
Не нашли ответ?
Похожие вопросы