profile
Опубликовано 4 года назад по предмету Информатика от vindzor2013

Дан массив вещественных чисел. Каждый отрицательный элемент заменить на его абсолютную величину

  1. Ответ
    Ответ дан nikolac
    uses crt;
    var i,n:integer;
    a:array[1..100] of real;
    begin
    writeln('Сколько чисел в массиве?');
    read(n);
    writeln('Введите элементы.');
    for i:=1 to n do
    begin
    read(a[i]);
    if a[i]<0 then
    a[i]:=abs(a[i]);
    end;
    for i:=1 to n do
    write(a[i],' ');
    end.