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