Регистрация
мага398
03.02.2023 05:51
Информатика
Есть ответ 👍

Нужна запустите интегрированную среду скреч. поставок программный код для . дан радиус круга r=2, определите диаметр окружности. 2) запустите программу. проверьте код и исправте ошибки.

171
368
Посмотреть ответы 1

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

kirill12123
kirill12123
4,8(40 оценок)

var a: array[1..15] of char;

i,min,max: integer;

begin

  min=1;

  max=1;

  for i: = 1 to 15 do begin

      a[i]: = chr(random(256));

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

      if a[max]< a[i] then max: =i;

  end;

  writeln(a[min], a[max]);

 

end.

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