kashxb2056
?>

Сколько букв "е" в данном слове?

Информатика

Ответы

okison2847

Розы - 38 млн. , пионы - 3 млн. , розы AND пионы - 4 млн. , розы OR пионы - 2 млн. , -розы пионы 4 млн.

Человек-

чтение газеты человеком

строительство дома людьми

Общение с друзьями

Хождение в ресторан

Игра в волейбол

Животный мир-

принятие определённой позы собакой при приближении соперника

общение дельфинов между собой

виляние хвостом у собак

Беганье за палкой

Игра волчат

Растительный мир-

Опадение листвы

рост побегов

сезонные изменения в природе

Начало дождя

Рост дерева

Технические системы-

вождение автомобиля

Деланье уроков

гулянка

Стройка самолета

Готовка еды в массовом производстве

sv-rud
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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Сколько букв "е" в данном слове?
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Лилия-Карпухина337
tatk00
heodbxbbshe
milanmilan8672
Nurislamovna1543
Rinatum1978
dilbaryan76
ievlevasnezhana7
ivan-levermor
familumid
kotsur
Marina281
detymira
andre6807
lenalevmax7937