Регистрация
inkarmukash
Есть ответ 👍

Дан массив целых чисел. Определить: 1) сумму всех элементов массива; 2) произведение всех элементов массива; (программа Паскаль)

271
345
Посмотреть ответы 2

Ответы на вопрос:

allagureva
allagureva
4,4(78 оценок)
program massiv ;
uses crt;
type mas=array[1..1000] of integer;
var i,s,n,p,k: integer;
    m:mas;
begin
randomize;
for i:=1 to 10 do
begin
m[i]:=random(45)+1;
write(m[i], '  ');
s:=S+m[i];
end;
writeln;
write( s);
end.   

program massiv ;
uses crt;
type mas=array[1..1000] of integer;
var i,s,n,p,k: integer;
    m:mas;
begin s:=1;
randomize;
for i:=1 to 10 do
begin
m[i]:=random(5)+1;
write(m[i], '  ');
s:=S*m[i];
end;
writeln;
write( s);
end.   

program massiv ;
uses crt;
type mas=array[1..1000] of integer;
var i,n,p,k: integer;
    m:mas; s:real;
begin s:=0;
randomize;
for i:=1 to 10 do
begin
m[i]:=random(10)+1;
write(m[i], '  ');
s:=S+m[i];
end;
writeln;
write( s/10);
end.
Nasib15
Nasib15
4,6(25 оценок)

як и как р8т т т т т т ьмьиьмьм

Популярно: Другие предметы