Предмет: Информатика,
автор: jibugfdfhv
ПОМОГИТЕ, ОЧЕНЬ СРОЧНО, ПОЖАЛУЙСТА, ПРОШУ ВАС, С ОБЪЯСНЕНИЕМ !!! ЗАРАНЕЕ СПАСИБО ЗА ВАШ ТРУД И ПОМОЩЬ
Паскаль!!!
Приложения:
![](https://files.topotvet.com/i/9cd/9cd4b185dba23056420510c2361532c0.jpg)
Ответы
Автор ответа:
1
Ответ:
pascal
Объяснение:
var i, max, min: integer;
a: array [1..10] of integer;
begin
randomize;
for i := 1 to 10 do
begin
a[i] := random(100);
Write(a[i], ', ');
end;
WriteLn;
min := a[1];
max := a[1];
for i := 1 to 10 do
begin
if a[i] < min then min := a[i];
if a[i] > max then max := a[i];
end;
WriteLn('MAX = ', max);
WriteLn('MIN = ', min);
WriteLn('Среднее арифметическое MAX и MIN = ', (max + min) / 2:1:2);
end.
Похожие вопросы
Предмет: Українська мова,
автор: jjSk
Предмет: Окружающий мир,
автор: valyarybalko2
Предмет: Окружающий мир,
автор: mariilinyx
Предмет: Русский язык,
автор: inzhu9
Предмет: Английский язык,
автор: Xzuhn