Сделать в Pascal ABC. Найти сумму первых 5-ти элементов одномерного массива
Сделать в Pascal ABC. Найти сумму первых 5-ти элементов одномерного массива
Гость
Ответ(ы) на вопрос:
ГостьProgram element_massiva5
var
Sum, i : integer;
a : array [1..15] of integer;
begin
Sum := 0;
writeln('введите 15 чисел массива');
for i:=1 to 15 do
begin
readln(a[i]);
end;
Sum:=a[1]+a[2]+a[3]+a[4]+a[5];
Writeln(' Ответ: ',Sum);
end.
Не нашли ответ?
Похожие вопросы