вычислите сумму 4 целых чисел введенных с клавиатуры(нужно сделать с циклом предусловием постусловием и с параметром for ) помоги срооочно нужно
Answers & Comments
JustPeople
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);
Answers & Comments
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);