Сделать в pascal abc. найти сумму первых 5-ти элементов одномерного массива

moon455808 moon455808    1   04.06.2019 12:00    2

Ответы
rensatkontri rensatkontri  05.07.2020 12:56
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика