Дан массив из 20 целых чисел заполненный случайным образом от 10 до 99 . Найти сумму...

Question

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

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.

Comments

это если массива со случайными цифрами изначально не было

---

если массив вводится с клавиатуры, то могу потом другую программу написать, либо же если до этого была дана, то это совсем иная программа. Напиши потом мне более подробно что именно имелось ввиду массива, я обязательно отвечу

---

Массив вводится с клавиатуры

---

program sum1;
var a:array[1..20] of integer; k,i:integer;
begin
k:=0;

---

write('vvedite massiv'); for i:=1 to 20 do begin read(a[i]); k:=k+ a[i] div 10; end; readln; write('summa = ',k); readln; end.

---

это через клаву

---

Спасибо