задачи по массивам - помогите !!!

[Heidi]

Грозит неуд по информатике, а я вообще ничего не понимаю в массивах !!! помогите пожалуйста!
Заранее благодарна всем, кто ответит!!!

Итак,
Квадратные массивы.
Составить блок-схему алгоритма, написать программу в Паскале.
1. В одномерном массиве найти модуль сумму отрицательных элементов и количество положительных элементов.
2. В целочисленном массиве M[6] найти количество и среднее арифметическое положительных элементов, кратных 3.
3. Дан одномерный массив С[9]. Найти количество и удвоенную сумму всех положительных элементов кратных 7 и произведение отрицательных элементов.

[Карась]

Грозит неуд по информатике

Если Вы не можете решить эти, наипростейшии задачи, то собственно "неуд" - это Ваша оценка.

Вижу только одну проблему - открыть книгу.

[Шаман]

решение второй задачи

uses
crt;
var
mas:array [1..6] of integer;
i,s,count:integer;
sa:real;
begin
clrscr;
writeln('‡*Ї®«*ЁвҐ ¬*ббЁў');
s:=0;
 for i:=1 to 6 do
  begin
  readln(mas[i]);
  if (mas[i]>0) and (mas[i] mod 3=0) then
  begin
  s:=s+mas[i];
  count:=count+1;
  end;
 sa:=s div count;
 writeln('Среднее арифметиеское='sa:6:1);
 writeln('Количество=',count);
 readln;
 end.

[Heidi]

to Kарась: к сожалению, я полный гуманитарий, компьютер для меня - это офисные программы, интернет, почта
Если для вас эти задачи наипроистейшие, то помогите их решить

[Heidi]

to Шаман: спасибо))

[Шаман]

Вот первая задача...И посмотри еще раз вторую...Я ее немного исправил...

uses
crt;
var
mas:array [1..6] of integer;
i,count:integer;
summa:integer;
begin
clrscr;
writeln('Заполните массив');
summa:=0;
 for i:=1 to 6 do
  begin
   readln(mas[i]);
    if (mas[i]>0) then
     inc(count)
     else
      summa:=summa+abs(mas[i]);
   end;
   if summa=0 then
     writeln('Отрицательных чисел нет')
     else   writeln('Сумма=',summa);
 writeln('Количество=',count);

 readln;
end.

разбирайся

[Heidi]

Шаман, большое тебе спасибо

[Greblin]

Лови третью

var C: array[1..9] of integer;
    Sum2: integer;
    count: integer;
    mul: integer;
    i: integer;

begin
Sum2 := 0;
count := 0;
mul := 1;
for i := 1 to 9 do
  begin
  read(C[i]);
  if (C[i] > 0) then
    begin
    if (C[i] mod 7 = 0) then
      begin
      count := count + 1;
      Sum2 := Sum2 + C[i]*2;
      end;
    end
  else
    mul := mul * C[i];
  end;
writeln('Sum2 = ',Sum2);
writeln('count = ',count);
writeln('mul = ',mul);
end.

[кася]

Использование операторов цикла и работа со статическими массивами на языке паскаль.

[кася]

Использование операторов цикла и работа со статическими массивами на языке паскаль.
Задача:Сформировать целочисленный массив A(85), элементами которого являются случайные числа из диапозона [-20...10].Найти величину наибольшего среди отрицательных чисел этого массива.