Const nx=30; mx=30;
var r:array[1..nx,1..mx] of integer;b:array[1..mx] of integer;
i,j,n,m,k,sum,min:integer;
begin
min:=40;
randomize;
write('Введите n,m: ');readln(n,m);
writeln('Исходная матрица: ');
for j:=1 to m do begin
for i:=1 to n do begin
r[i,j]:=random(20)-10;
sum:= sum + r[i,j];end;
b[j]:=sum;sum:=0;
end;
for i:=1 to n do begin
for j:=1 to m do begin
write(r[i,j]:4);end;
writeln;end;
writeln;
for j:=1 to m do begin
write(b[j]:4);
if min > b[j] then begin
min:= b[j]; k:= j;end;
end;
writeln;writeln;
for i:=1 to n do begin
for j:=1 to m do begin
if j=k then write(r[i,j]:4);end;
writeln;end;
end.

0 0

4 года назад

Помогите Пожалуйста Инфо 6 класс))) В чём причина эргономики

moscow

Эргоно́мика (от др.-греч. ἔργον — работа + νόμος — закон) — в традиционном понимании — наука о приспособлении должностных обязанностей, рабочих мест, предметов и объектов труда, а также компьютерных программ для наиболее безопасного и эффективного труда работника, исходя из физических и психических особенностей человеческого организма.

0 0

4 года назад

В таблице приведены запросы к поисковому серверу. Расположите номера запросов в порядке убывания количества страниц, которые най

vkcomekaterinburg...

2 Гагарин | Космос | полёт
4 Гагарин | Космос
3 Гагарин & полёт
1 Космос & Гагарин & полёт

0 0

4 года назад