Есть ответ 👍

Заполнить массив случайными числами. найти на сколько максимальный элемент массива больше минимального. надо.

240
383
Посмотреть ответы 3

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


Const n=10; var a: array[1..n] of integer; max,min,i: integer; begin randomize; for i: =1 to n do begin   a[i]: =random(51);   write(a[i],' ');   end; writeln; max: =a[1]; min: =a[1]; for i: =2 to n do   begin   if a[i]> max then max: =a[i];   if a[i]< min then min: =a[i];   end; writeln('max = ',max,'   min = ',min); writeln('max-min = ',max-min); end. пример: 9 26 10 3 27 47 18 6 34 15  max = 47   min = 3 max-min = 44
salta19
4,7(30 оценок)

// pascalabc.net 3.2, сборка 1356 от 04.12.2016 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n='),10,50); a.println;   writeln('max-min=',a.max-a.min) end. пример n= 15 26 18 47 26 48 38 43 36 30 11 27 49 42 29 15 max-min=38

var

    a : real : = 6.5;

    b : real : = 13;

begin

    writeln('прямоугольник: ');

    writeln('a=', a);

    writeln('b=', b);

    writeln('периметр p=', (a+b)*2);


    writeln('площадь s=', a*b);

end.

Популярно: Информатика