Program n1;
const maxm = 50;
maxn = 50;
var a:array[1..maxm,1..maxn] of integer;
  min,max,i,j,n,m,x,maxi,mini:integer;
begin
write('Введите размеры матрицы (N*M): ');
readln(n,m);
writeln('Введите матрицу из ',n,' строк и ',m,' столбцов:');
min:=maxint; max:=-maxint-1;
for i:=1 to n do
for j:=1 to m do
  begin
read(a[i,j]);
if a[i,j]>max then begin max:=a[i,j]; maxi:=i; end;
if a[i,j]<min then begin min:=a[i,j]; mini:=i; end;
end;

for j:=1 to m do
begin
x:=a[maxi,j]; a[maxi,j]:=a[mini,j]; a[mini,j]:=x;
end;

writeln('Матрица после преобразования:');
for i:=1 to n do
begin
for j:=1 to m do
  write(a[i,j],' ');
writeln;
end;
<span>
end. </span>

0 0

4 года назад

Запишите оператора для вывода значений целых переменных a=5 b=3по формуле 5+3=?в ответе не используйте пробелы (только write без

Лидия32

Program Znanija;
var a,b,c:integer;
begin
Write('Введите a');
Read(a);
Write('Введите b');
Read(b);
c:=a+b;
Write(c);
end.

0 0

4 года назад

Сообщение занимает 4 страницы по 30 строк. В каждой строке записано по 50 символов. Сколько символов в использованом алфавите, е

Сергей Махнов

Найдём общее число символов:

4 * 30 * 50 = 6000 символов

I - объём

I = 4500 байтов = 36000 бит

Чтобы найти количество символов найдем i.

N = 2 в степени i

i = 36000 / 6000 = 6

N = 64

Ответ: 64 символа в алфавите.

0 0

4 года назад

Срочно надо, помогите пожалуйста! использовать алгоритм сместиться на вектор. ​

Срочно надо, помогите пожалуйста! использовать алгоритм сместиться на вектор.