Question

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

Answer 1

Ответ:

const

n=9;

var

m : array [0..n] of integer;

i : integer;

min, max : integer;

sr : real;

go: String;

begin

repeat

randomize;

for i := 0 to n do

m[i] := random (10)+1;

for i := 0 to n do

writeln('m [', i,'] = ', m[i]);

min := m [0];

for i := 1 to n do

if m[i] < min then

min := m[i];

writeln('min element is ', min);

max := m [0];

for i := 1 to n do

if m[i] > max then

max := m[i];

writeln('max element is ', max);

sr := 0;

for i := 0 to n do

sr:=sr + m[i];

writeln('srednee zna4enie', (sr/(n+1)));

readln(go);

if go<>'нет' then

until go = 'нет';

end.