Дан массив из 20 целых чисел заполненный случайным образом от 10 до 99. Найти сумму десятков (пример: первых чисел из 19 и 23 найти сумму 1 и 2)

Question

Информатика

Никитка

25 июля, 12:54

Дан массив из 20 целых чисел заполненный случайным образом от 10 до 99. Найти сумму десятков (пример: первых чисел из 19 и 23 найти сумму 1 и 2)

+4

Ответы (1)

Знаете ответ на вопрос?

Мануил · Answer 1

Program sum1;

var a:array[1 ... 20] of integer; k, i:integer;

begin

k:=0;

randomize;

for i:=1 to 20 do

begin

a[i]:=random (90) + 10;

write (a[i],' ') ;

k:=k + a[i] div 10;

end;

readln;

write ('summa desyatkov = ', k) ;

readln;

end.