Информатика, опубликовано 2018-08-22 18:57:25 by Гость
ПОМОГИТЕ СРОЧНО!!!! Задача 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на