Дан массив на 20 элементов заполнены случайным образом от -10 до +20. Найти максимальный элемент.

@Nurlan_300 · Регистрация: 21.10.2013

Author24 — интернет-сервис помощи студентам

Помогите плиз))) составить программу
Дан массив на 20 элементов заполнены случайным образом от -10 до +20.
Найти максимальный элемент.

@ertay-98 · 03.03.2014, 13:46

Сообщение от Nurlan_300

Помогите плиз))) составить программу
Дан массив на 20 элементов заполнены случайным образом от -10 до +20.
Найти максимальный элемент.

Pascal

program minmax;
uses crt;
var a:array[1..20] of real;
i:integer;
min,max:real;
begin randomize;
for i:=1 to 20 do
begin
a[i]:=random*30-10;
writeln(a[i]);
end;
max:= a[i];
min:=a[i];
 
for i:=1 to 20 do
begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln('min=',min,'max=',max);
end.

Вроде бы так...

@Nurlan_300 1 / 1 / 0 Регистрация: 21.10.2013 Сообщений: 51
		1
	Дан массив на 20 элементов заполнены случайным образом от -10 до +20. Найти максимальный элемент. 03.03.2014, 13:06. Показов 11740. Ответов 1 Метки нет (Все метки) Помогите плиз))) составить программу Дан массив на 20 элементов заполнены случайным образом от -10 до +20. Найти максимальный элемент. 0

	03.03.2014, 13:46

Дан массив на 20 элементов заполнены случайным образом от -10 до +20. Найти максимальный элемент.

Решение