Опубликовано 6 лет назад по предмету Информатика от Малышанька

Составить программу, заполняющую массив десятью случайными числами и выводящую на экран: 1) максимальное значение; 2)минимальное значение; 3)среднее арифметическое значение.

Ответ

Ответ дан moroh

program n1; const n=10; var mas:array[1..n] of integer; i:integer; max,min,sum:integer; ar:real; begin for i:=1 to n dobegin mas[i]:= random (20)-10; write(mas[i],' '); writeln end; max:=1; for i:=2 to n do if mas[i]>mas[max] then max:=i; writeln; writeln('Максимаьное значение a[',max,']= ',mas[max]); min:=1; for i:=2 to n do if mas[i]<mas[min] then min:=i; writeln; writeln(Минимальное значение a[',min,']= ',mas[min]); for i:=1 to n do sum:=sum+mas[i]; ar:=sum/n; writeln; writeln('Среднее арифметическое = ',ar); end.{Немного нерационально но работает=)}