Pascal

Есть пару задач или школьного курса информатики!)
Кто сможет решить,отпишите пожалуйста)

 

Чего? Сразу задачи пиши - смогу - помогу.

 

кидай уже

 

давай, 2 курс ИБАС может помогу

 

Любитель, возможно разберусь.

 

ну ииии...... где задачи то?

 

Кидай, решу

 

Вот задачки:
1)Формирует массив 10 случайных вещественых чисел,принадлежащийх промежутку [-2;3],и поддщитывает сумму отрицательных чисел.Вывод в столбец с двуня десятичными знаками.
2)Формирует массив,содержащих 15 случайных чисел,принадлежащий промежутку [0;8],и приобразуют элементы массива по следующему правилу,к четному числу прибовляет 1,а не к четному умножает на 2.Буду очень благодарен.
Плюсом не обижу)

 

Код:

var
  a: array[1..15] of integer;
  i: integer;

begin
  randomize;
  for i := 1 to 15 do 
  begin
    a[i] := random(9);
    write(' ', a[i]);
  end;
  writeln;
  for i := 1 to 15 do 
  begin
    if ((a[i] mod 2) = 0) then a[i] := a[i] + 1 else a[i] := a[i] * 2;
    write(' ', a[i]);
  end;
  
end.

Код:

var
  a: array[1..10] of integer;
  i integer;
  k: real;

begin
  randomize;
  k := 0;
  for i := 1 to 10 do 
  begin
    a[i] := random(4) - 2;
    write(' ', a[i]);
  end;
  writeln;
  for i := 1 to 10 do 
  begin
    if a[i] < 0 then k := K + a[i];
    writeln(int(k): 1:2);
  end;
  
end.

 

Спасибо,удачи. плюшку дал