Помогите информатика паскаль!

Если массив (точнее, элементы массива) вводится с клавиатуры то вот программа:

 Program P1; 

uses crt; 

const n=5; 

type mas=array [1..n] of real; 

var i, k: integer; 

    m: mas; 

begin 

clrscr; 

k:=0; 

writeln ('Введите с клавиатуры значения элементов массива (только числа). После ввода каждого из элементов нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 

for i:=1 to n do begin 

    write ('Введите ', i, '-й элемент массива: '); 

    readln (m[i]); 

    end; 

for i:=1 to n do if m[i]

 Program P1; 

uses crt; 

const m=3; 

      n=3; 

type massiv=array [1..m, 1..n] of real; 

var i, j, k: integer; 

    mas: massiv; 

begin 

clrscr; 

k:=0; 

writeln ('Введите с клавиатуры значения элементов массива (только числа). После ввода каждого из элементов нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 

for i:=1 to m do begin 

    for j:=1 to n do begin 

    write ('Введите ', i, ',', j, '-й элемент массива: '); 

    readln (mas[i,j]); 

    end; 

end; 

for i:=1 to m do begin 

    for j:=1 to n do begin 

    if mas[i,j]							

 if k=0 then writeln ('В введенном массиве нет отрицательных элементов.') else writeln ('Количество отрицательных элементов в введенном массиве: ', k);  

write ('Программа завершена. Для выхода нажмите клавишу Enter.');  

readkey;  

end. 

 Program P1; 

uses crt; 

const m=3; 

      n=3; 

type massiv=array [1..m, 1..n] of integer; 

var i, j, k: integer; 

    mas: massiv; 

begin 

clrscr; 

k:=0; 

for i:=1 to m do begin 

    for j:=1 to n do mas[i,j]:=random (2001)-1000; 

end; 

writeln ('Был сгенерирован массив:'); 

for i:=1 to m do begin 

    for j:=1 to n do begin 

    write (mas[i,j] :5); 

    end; 

    writeln (' '); 

end; 

for i:=1 to m do begin 

    for j:=1 to n do begin 

    if mas[i,j]							

PascalABC:


const n = 15;
Var Mas : array [1..n] of integer; ColOtr : integer;

begin
ColOtr := 0;
WriteLn (' Исходный массив:');
for var i := 1 to n do
begin
Mas[i] := -100 + random (201);
Write (Mas[i]:5);
if (Mas[i] < 0) then ColOtr := ColOtr + 1;
end; WriteLn;
WriteLn (' Количество отрицательных = ', ColOtr);
end.

 program CountNegatives; 

 

const 

  MAX_SIZE = 100; // максимальный размер массива 

 

var 

  arr: array[1..MAX_SIZE] of integer; // объявляем массив 

  n, count: integer; // n - размер массива, count - количество отрицательных элементов 

  i: integer; // счетчик цикла 

 

begin 

  write('Введите размер массива (не более ', MAX_SIZE, '): '); 

  readln(n); // считываем размер массива 

   

  // заполняем массив случайными числами от -50 до 50 

  randomize; // инициализируем генератор случайных чисел 

  for i := 1 to n do 

    arr[i] := random(101) - 50; // генерируем число от -50 до 50 

   

  // выводим массив на экран 

  writeln('Массив:'); 

  for i := 1 to n do 

    write(arr[i], ' '); 

  writeln; 

   

  // считаем количество отрицательных элементов 

  count := 0; 

  for i := 1 to n do 

    if arr[i] < 0 then 

      count := count + 1; 

   

  // выводим результат на экран 

  writeln('Количество отрицательных элементов: ', count); 

   

end. 

 

Вот схема работы программы:

 +---------+ 

| Ввод    | 

| размера | 

+---------+ 

     | 

     v 

+---------+ 

| Генерация | 

| массива | 

+---------+ 

     | 

     v 

+--------+ 

| Вывод  | 

| массива | 

+--------+ 

     | 

     v 

+-----------------------+ 

| Подсчет отрицательных | 

| элементов             | 

+-----------------------+ 

     | 

     v 

+-----------------------------+ 

| Вывод количества отрицательных | 

| элементов                     | 

+-----------------------------+ 

 

Конечно, вот пример программы, написанной на Паскале, которая подсчитывает количество отрицательных элементов в массиве:

```
программа CountNegatives;

вар
arr: массив [1..10] целых чисел; // инициализируем массив из 10 элементов
negCount, i: целое число; // инициализируем отрицательный счетчик и переменную индекса

начинать
// заполняем массив случайными значениями (от -10 до 10)
для я := от 1 до 10 сделать
arr[i] := random(21) - 10;

// цикл по массиву и подсчет количества отрицательных элементов
для я := от 1 до 10 сделать
начинать
если arr[i] < 0, то
negCount := negCount + 1;
конец;

writeln('Количество отрицательных элементов в массиве: ', negCount);

конец.
```