С клавиатуры вводятся размеры (<=100x100) матрицы и её (целые) элементы. Составить вектор номеров столбцов, в которых все элементы меньше 8.
Условие Задачи:
С клавиатуры вводятся размеры (<=100x100) матрицы и её (целые) элементы. Составить вектор номеров столбцов, в которых все элементы меньше 8. Результаты вывести на экран.
program PascalGuru; uses crt;
var A:array[1..100,1..100] of integer; {описание переменных} Vector:array[1..100] of integer; i,j,n,k:integer;
{----------------------------------------------------} function uslovie(j:integer):boolean; {функция проверяет - все ли элементы столбца "j" положительны} var rez:boolean; begin rez:=true; for i:=1 to n do if A[i,j]>8 then rez:=false;
begin write('Razmer matritsy= '); readln(n); {ввод размерности матрицы}
for i:=1 to n do for j:=1 to n do begin write ('A[',i,',',j,']= '); readln (A[i,j]); {ввод элементов матрицы} end;
clrscr; write('Matritsa:'); for i:=1 to n do begin writeln; for j:=1 to n do write (A[i,j]:8); end; {вывод элементов матрицы} writeln;writeln;
k:=0;{счётчик кол-ва элементов вектора} for j:=1 to n do {цикл прохода по всем столбцам матрицы} if uslovie(j) then {если в текущем столбце все элементы положительны } begin inc(k); {счётчик кол-ва элементов вектора увеличиваем на "+1"} Vector[k]:=j; {и в вектор записываем значение индекса текущего столбца} end;
writeln;writeln('Vector nomerov stolbcov: '); for i:=1 to k do write (Vector[i]:4,' '); {вывод элементов вектора на экран}