Решить задачи

[Дарья Русанова]

Составить блок-схему алгоритма,написать программу,
1).В одномерном массиве все отрицательные элементы увиличивать в 3 раза.
2).В вещественном массиве М(10) найти количество отрецательных четных элементов и куб среднего арифметического положительных элементов.
3).Дан одномерный целочисленный массив В(18).Получить квадрат произведения членов последовательности,кратных 3 и их среднее арифметическое значение,а также разность положительных элементов

помогите решить.пожалуйста.

[Карась]

Задача хорошая, решайте.

[mihali4]

[OFF]
Приказ тоже сформулирован неплохо
[/OFF]

[Шаман]

Вот тебе первая задачка:

uses
crt;
var
mas:array [1..10] of integer;
i,x:integer;
begin
clrscr;
writeln('Ввести элементы массива');
  for i:=1 to 10 do begin
   readln(mas[i]);
  end;
writeln('Выходной массив');
for i:=1 to 10 do
 begin
  if mas[i]<0 then
   mas[i]:=mas[i]*3;
   write(mas[i],' ');
 end;

readln;
end.