Задачи по массивам (Turbo Pascal)

[Lerank]

Помогите пожалуйста решить 2 задачи на двумерные массивы у меня что-то не получаются
Заранее спасибо
Задание 1: Составить программу, заполняющую массив из n элементов случайными целыми числами, находящимися в интервале от 1 до 50. Вывести на экран созданный массив и найти количество тех элементов, значение которых находится в диапазоне от a до b. Число элементов массива и значения a и b вводятся с клавиатуры.
Задание 2: Составить программу, заполняющую массив из n элементов (n не больше 20), введёнными с клавиатуры целыми числами. Требуется вывести массив на экран и найти индекс последнего по счёту в массиве отрицательного элемента.

[alex_fcsm]

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

Помогите пожалуйста решить 2 задачи на двумерные массивы у меня что-то не получаются
Заранее спасибо
Задание 1: Составить программу, заполняющую массив из n элементов случайными целыми числами, находящимися в интервале от 1 до 50. Вывести на экран созданный массив и найти количество тех элементов, значение a и b вводятся с клавиатуры.
Задание 2: Составить программу, заполняющую массив из n элементов (n не больше 20), введёнными с клавиатуры целыми числами. Требуется вывести массив на экран и найти индекс последнего по счёту в массиве отрицательного элемента.

Не дописано условие 1:найти количество тех элементов, которые что?

Вот вам заполнение массива

uses crt;
const m=10;
      n=10;
var a:array[1..m,1..n]of integer;
    i,j:integer;
begin
clrscr;
randomize;
for i:=1 to m do
begin
 for j:=1 to n do
  begin
  a[i,j]:=random(50);
  write(a[i,j]:3);
  end;
writeln;
end;
end.

[Lerank]

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

Не дописано условие 1:найти количество тех элементов, которые что?

извиняюсь теперь исправил исправил

[alex_fcsm]

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

извиняюсь теперь исправил исправил

uses crt;
const m=10;
      n=10;
var a:array[1..m,1..n]of integer;
    i,j,l,r,sum:integer;
begin
clrscr;
randomize;
for i:=1 to m do
begin
 for j:=1 to n do
  begin
  a[i,j]:=1+random(50);
  write(a[i,j]:3);
  end;
writeln;
end;
writeln('Input a');
readln(l);
writeln('Input b');
readln(r);
sum:=0;
for i:=1 to m do
 for j:=1 to n do
  if (a[i,j]>=l) and(a[i,j]<=r) then inc(sum);
writeln(sum);
end.

[Lerank]

спасибо большое

[alex_fcsm]

uses crt;
const m=4;
      n=4;
var a:array[1..m,1..n]of integer;
    i,j,l,r:integer;
begin
clrscr;
randomize;
for i:=1 to m do
 for j:=1 to n do
  read(a[i,j]);
l:=0;r:=0;
for i:=1 to m do
 for j:=1 to n do
  if a[i,j]<0 then begin
                   l:=i;r:=j;
                   end;
writeln('[',l,',',r,']');
end.

[Lerank]

а почему-то вторая программа не работает, после того как я ввожу элементы он выбрасывает из программмы

[skl1f]

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

а почему-то вторая программа не работает, после того как я ввожу элементы он выбрасывает из программмы

ALT+F5 или пропиши readln; после последнего writeln.

[Monika_raven]

помогите пожалуйста с двумя задачами по массивам...
1. переписать положительные элементы массива Х(N) (N<=50) подряд в массив С. массив С распечатать
2. задан массив х(N) (N>=90) переписать отрицательные элементы массива х последовательно в массив у, а положительные элементы массива - в массив z (нулевые элементы не рассматривать). Отпечатать сформированные массивы у и z
Помогите пожулайста.. буду очень признательна

[Infinity-91]

Привет, помогите пожалуйста решить задачу по массиву

Составить программу для вычисления значений переменных в списках А,В,С содержащих по 10 чисел каждый. Результат получить в ввиде массива D. Массив D получить путем сложения массивов А,В,С