Var x, y: real; begin x : = -5; writeln(' x y '); while x < = 5 do begin y : = 5 - x*x/2; writeln(x: 4: 1,' | ',y: 5: 2); x : = x + 0.5 end; end. : из цикла while в цикл for

ответ:

вот код

объяснение:

program pr2(output);

var x,y: real;

var i: integer;

begin

x: =-5;

writeln(' x       y ');

for i: =1 to 21 do begin

y: =5-x*x/2;

writeln(x: 4: 1,'|',y: 5: 2);

x: =x+0.5

end;

end.

Если программа нужна на паскале, то вот держите program arrayz; uses crt; // подключение модуля crt var  z: array[1..4, 1..3] of integer; // массив  i, j, n, o: integer; // переменные для циклов и счета отрицательных и нечетных элементов begin  randomize; // нужно для turbopascal  // заполнение массива  for i : = 1 to 4 do  begin    writeln; // переход на другую строку    for j : = 1 to 3 do    begin      z[i, j] : = random(60) - 30; // рандомное заполнение массива      write(z[i, j]: 8); // вывод в консоль массива    end;   end;   // нахождение отрицательных и нечетных элементов  for i : = 1 to 4 do    for j : = 1 to 3 do    begin      if z[i, j] mod 2 < > 0 then // нахождение нечетных элементов        n : = n + 1;       if z[i, j] < 0 then // нахождение отрицательных элементов        o : = o + 1;     end;     writeln; // переход строки чтобы не было конфликтов  writeln('нечетных элементов: ', n, ' | отрицательных элементов: ', o); // вывод результатаend.