Question

Помогите!!!ДАЮ 100 баллов! Очень нужно!!!
Дана таблица с элементами [1...100] типа real.
Заменить все положительные элементы на 1 , а отрицательные на (-1).
Нужна программа в Паскале!
(Прикладываю фото похожей программы, которая ,возможно, Вам поможет)

Answer 1

program tttttabl;

uses

crt;

var

a: array [1..100] of real;

i, j: integer;

begin

for i := 1 to 100 do

a[i] := (random(200) - 100) / 2;

writeln('Изначальный массив:');

for i := 0 to 9 do

begin

for j := 1 to 10 do

write(a[i * 10 + j], ' ');

writeln;

end;

writeln;

for i := 1 to 100 do

if a[i] >= 0 then

a[i] := 1

else

a[i] := - 1;

writeln;

writeln('Измененный массив:');

for i := 0 to 9 do

begin

for j := 1 to 10 do

write(a[i * 10 + j], ' ');

writeln;

end;

readln;

end.