Paavmash 26 ноября 2019 в 06:50
Дан массив из 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
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
Компьютеры и вычисления
174
0
Для комментирования необходимо зарегистрироваться на сайте