Дан массив А, содержащий 25 вещественных чисел. Из модулей отрицательных элементов сформировать массив В.

Решение ABC Pascal:

 

Program ZadanieFourFour;

Var

a,b:array[1..25]of real;

i,k :integer;

begin

// заполняем массивы

randomize;

k:=0;

for i := 1 to 25 do

begin

a[i]:=Random*20-10;

if a[i]<0 then

begin

inc(k);

b[k]:=abs(a[i]);

end;

end;

// выводим массивы

writeln('a:');

for i := 1 to 25 do

begin

write(a[i]:5:1);

end;

writeln;

writeln('b:');

for i := 1 to k do

begin

write(b[i]:5:1);

end;

writeln;

end.

pascal запуск решенной задачи

Добавить комментарий