Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Cоздать программу на Турбо Паскаль, определяющую сумму первых 5 элементов одномерного массива. Ребят очень срочно!!! У меня экзамен!!

Ответ оставил Гость

var

a:array [1..5] of integer;

s:integer; {сумма}

i:integer; {счетчик}

begin

s:=0;

for i:=1 to 5 do

begin

writeln(введите значение элемента, ,i,:);

readln(a[i]);

s:=s+a[i];

end;

for i:=1 to 5 do

write(a[i]:4);

writeln(сумма равна,s);

readln;

end.

Я не уверен)