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

Дан массив А из 20 элементов. найти сумму первых 10 элементов массива и следующих 10 элементов массива. результат вывести на печать.

  1. Ответ
    Ответ дан niconneo
    var a : array[1..20] of integer;
    i, s1, s2 : integer;

    begin
    ...считали массив
    s1 := 0;
    s2 := 0;
    for i := 1 to 10 do
    s1 := s1 + a[i];
    for i:= 11 to 20 do
    s2 := s2 + a[i];

    writeln('сумма 1-10 = ', s1, '; сумма 11-20 = ', s2);
    end.