дано целое число. если оно является положительным, то умножить его на 8, если отрицательное то прибывать 185, если нулевым, то заменить его на 35 ​

плата вроде как, если не ошибаюсь

var a: array [1..10] of integer;

min,max,i,c,b: integer;

begin

  read(c,b);

  randomize;

  for i : = 1 to 10 do

        a[i]: = random(b) -c+1;

  min: =1;

  max: =1;

  for i: = 1 to 10 do

  begin

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

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

  end;

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

end.

  держи:

program kk; uses crt; var a: array [1..5,1..5] of integer; i,j: integer;   beginclrscr; randomize; for i: =1 to 5 dobeginfor j: =1 to 5 doa[i,j]: = random(90)+10; end; for i: =1 to 5 dobeginfor j: =1 to 5 do write(a[i,j],' '); writelnend; writeln; writeln; for i: =1 to 5 dobeginfor j: =1 to 5 dobegin  if (a[i,j] > 0) and (a[i,j] mod 3 = 0) thenbeginwriteln(a[i,j],' [',i, ',',j,']'); end; end; end; readkey; end. 

program num1; uses crt; var a,b,c : real; begin clrscr; write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); if (a=b) or (b=c) or (c=a) then write ('высказывание < среди трех данных целых чисел есть хотя бы одна пара > истино') else write('высказывание < среди трех данных целых чисел есть хотя бы одна пара > ложно'); end.