2 Задачи по программированию.

[Марьянка]

Помогите, пожалуйста, решить лабораторные работы. Первую
лабораторную нужно проверить. А вторую решить. В обеих лабораторных работах, в отчёте должны быть прогоны и скриншоты с результатами.

Лабораторная работа «Двумерные массивы».

Ввести размер прямоугольной матрицы и значения ее элементов. Построить вектор В, где В(i) - номер максимального значения в i-ой строке.

VAR
 A:ARRAY[1..10,1..10] of WORD;
 M:ARRAY[1..10] of WORD;
 Nl,Nc,i,j:INTEGER;
BEGIN
 Write('Enter the number of lines (<=10): ');
 ReadLn(Nl);
 Write('Enter the number of columns(<=10): ');
 ReadLn(Nc);
 WriteLn('Enter the integer positive values of matrix elements:');
 For i:=1 to Nl do
  For j:=1 to Nc do
   begin
    Write('A[',i,',',j,']= ');
    ReadLn(A[i,j]);
   end;
 WriteLn;
 For i:=1 to Nl do
  begin
   For j:=1 to Nc do
    Write(A[i,j]:8);
   WriteLn;
  end;
 WriteLn;
 For j:=1 to Nc do
  begin
   M[j]:=A[1,j];
   For i:=2 to Nl do
    If A[i,j]>M[j] then M[j]:=A[i,j];
  end;
 WriteLn('The array of maximum column values:');
 For j:=1 to Nc do
  WriteLn('M[',j,']= ',M[j]);
 ReadLn;
END.

Лабораторная работа « Одномерные массивы».

Вводится длина одномерного массива (вектора) и значения его элементов. Вводится дополнительный массив разрешенных значений. Составить массив из элементов исходного массива, имеющих неразрешенные значения. Вывести результативный массив на экран.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

1) Форум не автоматический решатель!
Хотите помощи - пытайтесь сделать самостоятельно!
Что не получается - помогут.
Если же хотите получить полное решение - то Вам во фриланс.

2) тема не отражает суть решаемых задач.

3) лучше просить помощи по каждой задаче отдельно.

4) подобные задачи (уже 1- это 100%) на форуме неоднократно решались.