В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
никита42728
никита42728
03.08.2021 11:17 •  Информатика

Посчитать сумму элементов массива, заполненного случайными числами, и произведение максимального и минимального элементов

Показать ответ
Ответ:
prostooo202003
prostooo202003
06.06.2020 23:26

Program n1;
Uses CRT;
Const n=10;
Var a: array[1..n] of integer;
i,sum,pr,max,min: integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
begin
a[i]:=random(50);
write(a[i]:3);
sum:=sum+a[i];
If a[i]>max then max:=a[i];
end;
min:=max;
For i:=1 to n do
If min>a[i] then min:=a[i];
pr:=max*min;
writeln;
Writeln('Summa vseh elementov=',sum,' Proizvedenie max i min =',pr);
readln
end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота