Илья
7 год назад
ПОМОГИТЕ СРОЧНО!!!!
Задача 1. Найти сумму пяти целых чисел массива.
Program z1;
usescrt;
var a:array [1..5] of integer;
..., i:integer;
Begin
...: = 0;
Writeln ('Введитеэлементымассива');
for i: = 1 to 5 do
readln (....);
for i: = 1 to 5 do
...: = s+ a[i];
Writeln ('…. = ',….);
End.
ОТВЕТЫ
Vonifatiy
Jul 13, 2019
Program z1;
usescrt;
var a:array [1..5] of integer;
s, i:integer;
Begin
s:=0;
Writeln (Введите элементы массива);
for i:=1 to 5 do
readln (a[i]);
for i:=1 to 5 do
s:= s+ a[i];
Writeln (s=,s);
End.
usescrt;
var a:array [1..5] of integer;
s, i:integer;
Begin
s:=0;
Writeln (Введите элементы массива);
for i:=1 to 5 do
readln (a[i]);
for i:=1 to 5 do
s:= s+ a[i];
Writeln (s=,s);
End.
230
Смежные вопросы:
