Предмет: Информатика, автор: molchanovgrih

Дан массив C(1...5)натуральных чисел.найти произведение элементов массива


Анютка101: На каком языке пишешь-то?
molchanovgrih: На паскале

Ответы

Автор ответа: Burxon21
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.

Похожие вопросы
Предмет: Информатика, автор: санёк4fd