Нужно решить задачку:

Найти максимальное и минимальное число

(Блок схема и программа)

Работаем в Паскале

Question

Информатика

Петря

15 декабря, 11:47

Нужно решить задачку:

Найти максимальное и минимальное число

(Блок схема и программа)

Работаем в Паскале

+1

Ответы (1)

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

Василек · Answer 1

если водится n чисел то вот программа

program maxmin;

var a:array[1 ... 1000]of longint;

i, n, max, min:longint;

begin

read (n) ;

for i: = 1 to n do

read (a[i]) ;

min:=a[1];

max:=a[1];

for i:=1 to n do

begin

if a[i]
if a[i]>max then min:=a[i];

end;

writeln ('min=', min,'max=', max) ;

end.

Нужно решить задачку:Найти максимальное и минимальное число(Блок схема и программа)Работаем в Паскале

Нужно решить задачку:

Найти максимальное и минимальное число

(Блок схема и программа)

Работаем в Паскале