Небольшие задания по матрицам в паскале

[Novenkaja]

Добрый день всем!!!

очень нужна Ваша помощь в решении этих мини-заданий.

Решение нужно в течени часа.

Cоздать программу, которая :

1-содержит массива чисел случая процедур с 6 очередями и 3 колонками с однозначными числами для создания

2-используя процедуру, заполняеn массивы X1 и X2

3-создаnm файлы текста FX1 и FX2, в которых сохраняютcя числа массивов X1 и X2 (в негативах со всем знаком) по очередям один другому рядом без промежутков либо иных разделителей

4-поменять местами массива X1 1-ую и 3-ью строку

5-выяснить, сколько в среднем в массиве X2 в каждой колонке отричательных значений

вот что у меня есть,это будет ответ на первый пункт или нет? я не совсем в этом уверенна,т.к. я могу ввести двухзначное,а надо только однозначные числа...

uses crt;
type mas=array [1..6,1..3] of integer;
var x:mas;
    i,j,m,n:integer;
    procedure ievads(var x:mas; n,m:integer);
     var i,j:integer;
     begin
     for i:=1 to n do
         for j:=1 to m do
            begin
              write ('Ievadiet x (',i,',',j,') ===> ');
              readln (x[i,j])
            end;
     end;
     procedure izvads(var x:mas; n,m:integer); {1}
     var i,j:integer;
     begin
       for i:=1 to n do
         begin
            for j:=1 to m do write(x[i,j]:6);
            writeln;
         end;
     end;
begin
     clrscr;
     write ('Ievadiet masiva izmeru ===> ');
     readln (n,m);
     ievads(x,n,m);
     izvads(x,n,m);
     readln;
end.

буду лочень очень лагодарна за скорость и помощь в решении(в течении часа это очень очень нужно)

[Alex11223]

содержит массива чисел случая процедур

Што?
Как-то все задание слишком сложно для понимания составлено. Судя по тексту в программе это перевод с какого-то другого языка с использованием программ-переводчиков?

я не совсем в этом уверенна,т.к. я могу ввести двухзначное,а надо только однозначные числа...

В задании же не просят пользователя ввести их. Сделайте заполнение с помощью рандома.

[Novenkaja]

да,я переводила с латышского языка

тогда просто сожердит массив из 6 строк и 3 колон

а можете помочь в этих заданиях?

пожалуйста

[Alex11223]

Ну насколько я понял надо: создать процедуру, которая заполняет массив 6*3 случайными (random) однозначными числами, заполнить с помощью нее массивы Х1 и Х2, записать их значения в файлы, поменять местами 1 и 3 строку в массиве Х1 и вычислить среднее значение непонятно чего в Х2.

[Novenkaja]

да,примерно так,ток долнение
заполнить с помощью неё-это этой процедуры,что в 1-ом пункте

насчёт фалов-их надо создать,в которых сохранятся числа массивов Х1 и Х2,все отрицательные по строчкам одна рядом с другой

вычислить сколько в масиве Х2 в среднем будет отрицательных чисел в каждой колонке

вот

успеешь за 20-30 минут?

[Alex11223]

А сами не хотите что-то сделать?)
как-то так процедура выглядит. В самой программе соответственно zapolnenie(x1) и x2.

procedure zapolnenie (var mas: array of integer);
var i, j:integer;
begin
randomize;
for i:=1 to 3 do
   for j:=1 to 6 do
      mas[i,j]:=random(21)-10;
end;

В файлы записать что-то вроде этого, давно не писал на Паскале.

var xf1:text;
...
assign(xf1, 'c:\xf1.txt');
reset(xf1);
for i:=1 to 3 do
   for j:=1 to 6 do
       write(xf1, x1[i, j]);
close(xf1);

замена строк

for i:=1 to 6 do
   begin
      temp:=x1[1, i];
      x1[1, i]:=x1[3, i];
      x1[3, i]:=temp;
   end;