ПОМОГИТЕ СРОЧНО!!!! Задача 1. Найти сумму пяти целых чисел массива. Program z1; usescrt; var a:array [1..5] of integer; ..., i:integer; Begin ...:=0; Writeln ('Введитеэлементымассива'); for i:=1 to 5 do readln (....); for i:=1...
ПОМОГИТЕ СРОЧНО!!!!
Задача 1. Найти сумму пяти целых чисел массива.
Program z1;
usescrt;
var a:array [1..5] of integer;
..., i:integer;
Begin
...:=0;
Writeln ('Введитеэлементымассива');
for i:=1 to 5 do
readln (....);
for i:=1 to 5 do
...:= s+ a[i];
Writeln ('….=',….);
End.
Гость
Ответ(ы) на вопрос:
ГостьProgram z1;
usescrt;
var a:array [1..5] of integer;
s, i:integer;
Begin
s:=0;
Writeln ('Введите элементы массива');
for i:=1 to 5 do
readln (a[i]);
for i:=1 to 5 do
s:= s+ a[i];
Writeln ('s=',s);
End.
Не нашли ответ?
Похожие вопросы