Дан массив целых чисел. Определить: 1) сумму всех элементов массива; 2) произведение всех элементов массива; (программа Паскаль)
146
432
Ответы на вопрос:
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.
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.
На основании приведенного литературного вопроса можно сформулировать ответ: Летопись жизни и творчества Лермонтова. (Захаров В. А.)
Лермонтов. Знакомясь с биографией поэта. (Чекалин С. В.)
Над тетрадями Лермонтова. (Обручев С. В.)
Михаил Лермонтов: роковое предчувствие. (Михайлов В. Ф.)
Лермонтов. Знакомясь с биографией поэта. (Чекалин С. В.)
Над тетрадями Лермонтова. (Обручев С. В.)
Михаил Лермонтов: роковое предчувствие. (Михайлов В. Ф.)
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
придумать название для мини книги... Брат канибал влюбился в...
Ksenya572725.02.2022 12:54 -
Жыр жолдарын пайдаланып отырып, кейіпкер типін жасалу тәсіліне...
Karumi126.12.2020 02:00 -
Не писать фигню. сочинение небольшое по картинкам...
marinavn200804.10.2022 12:49 -
Кузду куздой суйлом тузу...
Odesskiy200311.12.2022 23:26 -
Твір на тему Пригоди Лемюеля Гуллівера в наш час...
Topxic24.02.2021 15:37 -
Сөйлеу мәдениеті тақырыбында эссе...
лолКекКострома2111.01.2022 20:35 -
Нужен план до твору Джури характерники Володимира Рудкiвського...
lizniki8202.08.2022 09:04 -
РОЛЬ науки. Вопрос Исследования Путем перетаскивания распредели...
VladGulevevatiy03.08.2020 02:16 -
Квадрат у большинства на 20% пороцентов сколько увеличилось площадь...
Marshmallow12315.06.2021 16:04 -
Что объясняет наличие тёмной материи? Выберите наиболее точный...
Масянька18918.08.2020 05:58
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.