найти сумму 10 произвольных чисел вводимых с клавиатуры,пожалуйста помогите(

Есть ответ
12.12.2022
157

Ответ


var a:array[0..9] of integer;var i,sum:integer;begin  for i:=0 to 9 do begin    write('Vvedite chislo: ');    readln(a[i]);     sum:=sum+a[i];  end;  writeln(sum);  readln;end.


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
12.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.