profile
Опубликовано 6 лет назад по предмету Информатика от Denis454545

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

  1. Ответ
    Ответ дан igroman0174
    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.
Самые новые вопросы