Создать Проблеммы Паскаль

[Alex26MD]

Всем привет мне нужно создать пару программ в Паскле,
Вот темы и задачи которые выдали мне
1.Тема:Линейные таблицы; Разработать программ, который вычесляет в Линейной таблицы 30 целых цифр. Задача: Который вычесляет количество элементов равное максимальному элементу.
2.Тема: Таблица Размеров; Разработать программ который вычесляет в таблице размеров 5x5 целых чисел. Задача: Вычисляет отрицательные элементы, расположенные ниже побочной диагоналы.
Кто поможет заранее Спасибо!!!

[TaLadno]

А слабо самому написать?

[Аватар]

А проблемы паскалю зачем создавать? Самый простой способ - разделить на 0. Приличная проблема будет Можно еще корень квадратный из -2 посчитать. Та еще проблема будет

[Alex26MD]

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

А слабо самому написать?

еслы бы я знал как делать написал бы сюда?

Сообщение от Аватар

А проблемы паскалю зачем создавать? Самый простой способ - разделить на 0. Приличная проблема будет Можно еще корень квадратный из -2 посчитать. Та еще проблема будет

Лабораторные работы, нужно через паскаль сделать программ и результат.

[Stilet]

Линейной таблицы

Это как понимать? Массив?

{Разработать программ, который вычесляет в Линейной таблицы 30 целых цифр. 
Задача: Который вычесляет количество элементов равное максимальному элементу.}
var a:array[1..30] of double; c,i:integer;max:double;
begin
 for i:=1 to 30 do begin readln(a[i]); if (i=1) or (a[i]>max) then max:=a[i]; end;
 for i:=1 to 30 do begin if (a[i]=max) then inc(c); end;
 writeln('количество элементов равное максимальному элементу=',c); readln; 
end.

Так? Да?

[Alex26MD]

Program P1;
 var a:array[1..30] of double;
 c,i:integer;
 max:дouble;
Begin
 for i:=1 to 30 do
  begin
   readln(a[i]);
   if (i=1) of (a[i]>max) then max:=a[i]
  end;
 for i:=1 to 30 do
  begin
   if (a[i]=max then inc(c);
 end;
 writeln('количество елементов равное максимальному елементу=' ,c);
 readln;
End.

Выдаёт ошибку 8087

Код (2)

Program P2;
 type t2=array[1..5,1..5] of integer;
 var x:t2;i,j,s:integer;
Begin
 writeln('Данные из Таблицы  x:');
 for i:=1 to 5 do
 for j:=1 to 5 do read(x[i,j]);
 s:=0;
 for i:=1 to 5 do
 for j:=1 to 5 do
 if(x[i,j] mod 10=1) and (x[i,j] mod 3=0) then s:=s+x[i,j];
 writeln('Сумма ',s); readln;
End.

Код (1)

Program P1;
 type t1=array [1..10] of integer;
 var x:t1;i,s:integer;
Begin
 writeln('Данные из Таблицы x:');
 for i:=1 to 10 do read (x[i]);
 s:=0;
 for i:=1 to 10 do
 if(x[1] mod 7=0) then s:=s+x[i];
 writeln('Сумма чисел которая делится на 7:',s);
 readln;
End.

[VIK_aka_TOR]

прочитав это сможете решить свои задачи (подстроить под себя приведенный примеры)
нажми на меня и прочти
p.s. там подробно описана работа с матрицами и "линейными таблицами"