Pascal program matr;uses CRT;var fl:char;a:array [1..100,1..100] of integer;i,j,m,n,mmax:byte;max:integer;label met;beginmet:clrscr;max:=0;writeln ('Введите размерность матрицы NxM');readln (n);readln (m);randomize;for i:=1 to n do beginfor j:=1 to m do begina[i,j]:=-50+random(101);write (a[i,j]:4);end;{создание и вывод матрицы}writeln;end;writeln;for i:=1 to n do{нахождение максимального элемента}zfor j:=1 to m doif (a[i,j]>max) then beginmax:=a[i,j];mmax:=j;end;for i:=1 to n dowrite (a[i,mmax]:4);writeln;{Вывод столбца}for i:=1 to n do {нахождение одинаковых элементов}for j:=1 to n doif (a[i,j]=max)and(j<>mmax) then begin mmax:=j;write (a[i,mmax]:4);end;writeln ('Для продолжения нажмите любую клавишу,для выхода - "Х"');readln(fl);if (fl <> 'x') then goto met;end.
var i, k, N: word; A, B: array[1..10000] of integer;
begin write(' N = '); readln(N); writeln(' Введите массив из ', N, ' чисел: '); for i := 1 to N do begin read(a[i]); //Вводим i-й элемент массива. if a[i] mod 2 = 0 then //Если он четный, begin inc(K); //то увеличиваем K на 1. b[K] := a[i] //Очередной элемент нового массива. end end; writeln('Четные числа обратном порядке: '); { Выводим четные элементы массива в обратном порядке: } for i := K downto 1 do write(' ', b[i]); write(' K = ', K) end.
program matr;uses CRT;var fl:char;a:array [1..100,1..100] of integer;i,j,m,n,mmax:byte;max:integer;label met;beginmet:clrscr;max:=0;writeln ('Введите размерность матрицы NxM');readln (n);readln (m);randomize;for i:=1 to n do beginfor j:=1 to m do begina[i,j]:=-50+random(101);write (a[i,j]:4);end;{создание и вывод матрицы}writeln;end;writeln;for i:=1 to n do{нахождение максимального элемента}zfor j:=1 to m doif (a[i,j]>max) then beginmax:=a[i,j];mmax:=j;end;for i:=1 to n dowrite (a[i,mmax]:4);writeln;{Вывод столбца}for i:=1 to n do {нахождение одинаковых элементов}for j:=1 to n doif (a[i,j]=max)and(j<>mmax) then begin mmax:=j;write (a[i,mmax]:4);end;writeln ('Для продолжения нажмите любую клавишу,для выхода - "Х"');readln(fl);if (fl <> 'x') then goto met;end.
i, k, N: word;
A, B: array[1..10000] of integer;
begin
write(' N = ');
readln(N);
writeln(' Введите массив из ', N, ' чисел: ');
for i := 1 to N do
begin
read(a[i]); //Вводим i-й элемент массива.
if a[i] mod 2 = 0 then //Если он четный,
begin
inc(K); //то увеличиваем K на 1.
b[K] := a[i] //Очередной элемент нового массива.
end
end;
writeln('Четные числа обратном порядке: ');
{ Выводим четные элементы массива в обратном порядке: }
for i := K downto 1 do
write(' ', b[i]);
write(' K = ', K)
end.