Другие языки программирования и технологии

помогите пожалуйста с pascal

номер 3.1
Эдик Багиров
Эдик Багиров
106
uses crt;
var ma, i, n, m, sum, j :integer;
a :array[1..100,1..100] of integer;
begin
write('Ââåäèòå êîëè÷åñòâî ýëåìåíòîâ M, N ') ;
readln ( m, n );
writeln ('Ââåäèòå ìàòðèöó' , m , 'x' , n , ' ');
for i:=1 to m do
for j:=1 to n do
a[i,j] := i;
writeln( 'Îòâåò = ' );
for i:=1 to m do begin
for j:=1 to n do
write ( a[i,j] , ' ');
writeln(); end;
for j:=1 to n do begin
ma:=a[m-2,j]; a[m-2,j]:=a[m-1,j];a[m-1,j]:=ma; end;
writeln( 'Îòâåò = ' );
for i:=1 to m do begin
for j:=1 to n do
write ( a[i,j] , ' ');
writeln();
end;
end.
ДС
Дмитрий Соломатов
95 951
Лучший ответ
Эдик Багиров спасибо огромное а можете помочь с 3.2?
var i, n, m, sum, j, k :longint;
a :array[1..10000,1..10000] of integer;
v, mi : array[1..1000] of integer;
begin
write(' введите размер матрицы (MxN) ') ;
readln ( m, n );
for i:=1 to m do
mi[i] := 32000;
writeln ('введите матрицу' , m , 'x' , n , ' ');
for i:=1 to m do
for j:=1 to n do begin
read(a[i][j]);
if ( mi[i] > a[i][j] ) then mi[i] := a[i][j];
end;
for i:=1 to m do begin
for j:=1 to n do
if ( mi[i] = a[i][j] ) then inc(k);
v[i] := k;
k := 0;
end;
writeln( 'Ответ = ' );
for i:=1 to n do write( v[i] , ' ');
end.
Сформировал, для "помощи" более чем достаточно

for i:=1 to n do
begin
for j:=1 to n do
write(i:4);
writeln;
end;
Илья Муханов
Илья Муханов
55 236
Эдик Багиров это я сделал
мне надо поменять местами 2 предпоследние строки матрицы
var ma, i, n, m, sum, j :integer;
a :array[1..10000,1..10000] of integer;
begin
write('Введите количество элементов ') ;
readln ( m, n );
writeln ('Введите матрицу' , m , 'x' , n , ' ');
for i:=1 to m do
for j:=1 to n do
a[i][j] := i;
writeln( 'Ответ = ' );
for i:=1 to m do begin
for j:=1 to n do
write ( a[i][j] , ' ');
writeln();
end;
end.
Задача 3,2. Решение на Pascal ABC

var i, j, n, min, c: integer;
a: array [1..100,1..100] of integer;
b: array [1..100] of integer;
begin
write ('n = ');
read (n);
for i:=1 to n do
begin
min:=100;
for j:=1 to n do
begin
a[i,j]:=1+random (4);
write (a[i,j]:4);
if a[i,j] < min then
begin
c:=0;
min:=a[i,j];
end;
if a[i,j] = min then inc(c);
end;
b[i]:=c;
write (b[i]:10);
writeln;
end;
{writeln;
for i:=1 to n do write (b[i]:4);}
end.
Андрей Прудников
Андрей Прудников
24 309

Похожие вопросы