Вещественный массив

[mimit]

Дан массив вещественных чисел. Ко всем отрицательным элементам прибавить элемент с номером К1 к остальным - элемент с номером К2 .

[Stilet]

Показывай как вводишь массив и элементы.

[mimit]

Сообщение от Stilet

Показывай как вводишь массив и элементы.

var a:array[1..10] of real;
    i:integer;
begin
  randomize;
  for i:=1 to 10 do
  a[i]:=random(10);
  for i:=1 to 10 do
  write(a[i]:2:3,' ');
  readln;
end.

только я не знаю как вещественые числа вывести.

[Mad_Cat]

только я не знаю как вещественые числа вывести.

for i:=1 to 10 do
  a[i]:=random(10)+random(100)/100 -5;

[Stilet]

Итого:

var a:array[1..10] of real;
    i:integer;
begin
  randomize;
  for i:=1 to 10 do begin
   a[i]:=random(10)+random(100)/100 -5; write(a[i]:2:3,' ');
   if a[i]<0 then a[i]:=a[i]+k1 else a[i]:=a[i]+k2;
  end;
  for i:=1 to 10 do  write(a[i]:2:3,' ');
  readln;
end.

А теперь добавь в программу ввод переменных К1 и К2