Создать массив пяти элементов, используя список. Отрицательные элементы массива заменить нулями.

@BassHunTEp · Регистрация: 29.03.2012

Author24 — интернет-сервис помощи студентам

Создать массив пяти элементов, используя список. Отрицательные элементы массива заменить нулями.

Добавлено через 2 часа 4 минуты
help me

Добавлено через 1 час 38 минут
Например: Если массив а[1..5]: -15, 7, -8, 23, -11, то должны получить: 0, 7, 0, 23, 0.

Pascal

program a1;
const n=5;
var a:array[1..n] of real;
    i:integer;
begin
for i:=1 to n do
 
begin if a[i]<0 then a[i]:=0;
writeln(a[i]);
end;
end.

что-то вроде этого

Добавлено через 40 минут

Pascal

program a1;
const n=5;
var a:array [1..n] of real;
    i:integer;
begin
for i:=1 to n do readln(a[i]);
    for i:=1 to n do
begin
 
 if (a[i]<0) then a[i]:=0;
write(a[i]:1:0);
           end;
end.

Теперь вопрос, как в ответе , чтобы цифры стояли раздельно?

@klast · 28.04.2012, 11:02

Pascal

const
  n = 5;
 
var
  a: array [1..n] of real;
  i: integer;
 
begin
  for i := 1 to n do read(a[i]);
  for i := 1 to n do
  begin
    
    if (a[i] < 0) then a[i] := 0;
    write(a[i], ' ');
  end;
end.

	28.04.2012, 11:02