Предмет: Информатика,
автор: загадка98
заполнить и распечатать на экране результатов массив целых чисел размером 15 элементов и найти сумму элементов массива
Ответы
Автор ответа:
0
на паскале?
var v:array [1..100] of integer; s,n ,I: integer;
begin
for I:=1 to 15 do
begin
readln(n);
v [I]:=n;
s:=s+n;
end;
for I:=1 to 15 do
writeln (v [I]);
end.
var v:array [1..100] of integer; s,n ,I: integer;
begin
for I:=1 to 15 do
begin
readln(n);
v [I]:=n;
s:=s+n;
end;
for I:=1 to 15 do
writeln (v [I]);
end.
Похожие вопросы
Предмет: Математика,
автор: Hinatochechka
Предмет: География,
автор: devid13579d
Предмет: История,
автор: ab2970547
Предмет: Химия,
автор: Аноним
Предмет: Алгебра,
автор: ДэЛ