Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
6 декабря 2022 17:17
1403
Напишите программу нахождения суммы и произведения 10 случайных чисел. Pascal.
1
ответ
Ответ:const
n=10;
var
a:array[1..n]of integer;
i:integer;
s,p:real;
begin
randomize;
p:=1;
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:4);
p:=p*a[i] ;
s:=s+a[i];
end;
writeln;
writeln(P = ,p, S= ,s);
end.
Объяснение:
n=10;
var
a:array[1..n]of integer;
i:integer;
s,p:real;
begin
randomize;
p:=1;
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:4);
p:=p*a[i] ;
s:=s+a[i];
end;
writeln;
writeln(P = ,p, S= ,s);
end.
Объяснение:
0
·
Хороший ответ
8 декабря 2022 17:17
Остались вопросы?
Еще вопросы по категории Информатика
От чего зависит размер файла в котором хранится векторный рисунок? Почему векторные рисунки не искажаются при изменении размеров?...
Какое значение будет присвоено переменной Х после выполнения оператора Х := 19 div 5? 8 3,8 1 3 ...
ПОЖАЛУЙСТА!!!!!!Нарисуйте в виде графа ПОЖАЛУЙСТА!!!!!!Нарисуйте в виде графа систему, состоящую из 4-х одноклассников, между которыми существуют след...
Памятник клавиатуре. Место расположения памятника Дата открытия памятника Материал, из которого изготовлен памятник. Описание внешнего вида Гр...
Что такое информационные модели? из чего они "сделаны"?...
Все предметы 
