Вычислите сумму 4 целых чисел введенных с клавиатуры(нужно сделать с циклом предусловием постусловием и с параметром for )помоги срооочно нужно

Вычислите сумму 4 целых чисел введенных с клавиатуры(нужно сделать с циклом предусловием постусловием и с параметром for ) помоги срооочно нужно
Гость
Ответ(ы) на вопрос:
Гость
VAR    sum, i: LongInt;    a: Array [1..4] of LongInt; BEGIN    Writeln('Введите четыре числа:');    for i := 1 to 4 do Read(a[i]);        sum := 0;    {Сюда вставишь основной код (который ниже)}        Write(sum); END. -------------------------------------------------------------- // Цикл FOR    for i := 1 to 4 do        sum := sum + a[i]; -------------------------------------------------------------- // Цикл с предусловием     i := 1;    while (i < 5) do begin       sum := sum + a[i];       i := i + 1;    end; -------------------------------------------------------------- // Цикл с постусловием    i := 1;    repeat        sum := sum + a[i];       i := i + 1;    until (i > 4);
Не нашли ответ?
Ответить на вопрос
Похожие вопросы