Предмет: Информатика,
автор: molchanovgrih
Дан массив C(1...5)натуральных чисел.найти произведение элементов массива
Анютка101:
На каком языке пишешь-то?
Ответы
Автор ответа:
1
var C:array [ 1..5]of integer;
i,S:integer;
begin
randomize;
for i:=1 to 5 do begin C[i]:=random(100);
Wruti(C[i],' ');end;
for i:=1 to 5 do S:=S+C[i];
Writeln('произведение элементов массива=',S);
end.
i,S:integer;
begin
randomize;
for i:=1 to 5 do begin C[i]:=random(100);
Wruti(C[i],' ');end;
for i:=1 to 5 do S:=S+C[i];
Writeln('произведение элементов массива=',S);
end.
Похожие вопросы
Предмет: Физика,
автор: valeriacernova585
Предмет: Биология,
автор: 01011980name
Предмет: Информатика,
автор: Аноним
Предмет: Информатика,
автор: санёк4fd