Написать программу в Pascal.

Дан массив из 240 элементов, заполненных датчиком случайных чисел.

Найти максимальный элемент массива.

Question

Информатика

Грунятка

13 ноября, 04:54

Написать программу в Pascal.

Дан массив из 240 элементов, заполненных датчиком случайных чисел.

Найти максимальный элемент массива.

+3

Ответы (1)

Знаете ответ на вопрос?

Мамелфа · Answer 1

Program Mas;

Var A:array [1 ... 240] of integer;

I, x:integer;

Begin

For I:=1 to 240 do

A[I]:=Random (1000) ;

For I:=1 to 240 do

If A[I]>x Then x:=A[I];

WriteLn ('', x) ;

End.

Random (1000) - это интервал

то есть у вас будут задаваться числа от 0 до 999

можете сами задать интревал, который вам нужен

Написать программу в Pascal.Дан массив из 240 элементов, заполненных датчиком случайных чисел.Найти максимальный элемент массива.

Написать программу в Pascal.

Дан массив из 240 элементов, заполненных датчиком случайных чисел.

Найти максимальный элемент массива.