Язык паскаль . дан интервал от -10 до 10 . найти максимальное и минимальное число .

275

396

Посмотреть ответы 2

Ответы на вопрос:

sen4enkostas

Информатика

4,7(77 оценок)

Const n=10; var i,imax,imin,min,max: integer; mas: array[1..n]of integer; begin randomize; for i: =1 to n do mas[i]: =random(21)-10; for i: =1 to n do write(mas[i]: 4); writeln; imax: =1; max: =mas[1]; for i: =2 to n do if max< mas[i] then begin max: =mas[i]; imax: =i end; writeln('максимальный элемент=',max); writeln; imin: =1; min: =mas[1]; for i: =2 to n do if min> mas[i] then begin min: =mas[i]; imin: =i; end; writeln('минимальный элемент=',min); end.

AMAYA000

Информатика

4,6(23 оценок)

Сwhile. repeat - это оператор цикла, который сначала делает, а потом думает "а надо ли было? ". цикл с repeat выполнится всегда хотя бы один раз, даже если аргумент изначально не входит в диапазон. ну а if - это вообще не цикл.