Блок схема - Бесплатно сделаю блок-схему

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: diamFC

Бесплатно сделаю блок-схему » Блок-схемы по просьбам » Главное - ВЕРИТЬ (© Didme) » Блок схема

Блок схема

Duz-Two_O

Дата: Среда, 18.12.2013, 17:04 | Сообщение # 1

Рядовой

Группа: Пользователи

Сообщений: 3

Репутация: 0

Статус: Offline

Помогите )
program max_min;
uses crt;
var
m: array [1..n] of integer;
i,max,min,n: byte;
begin
clrscr;
read(n);
randomize;
for i:=1 to n do begin m[i]:=random(10) ;
write(m[i], ' ');
end;
max:=m[1];
min:=m[1];
for i:=2 to n do begin
if m[i]>max then max:=m[i];
if m[i]<min then min:=m[i];
end;
writeln('max=', max);
writeln('min=', min);
readkey;
end.

Страница 1 из 1
1