Stanislavovna1237
?>

со схемой алгоритма, кто шарит Текст: program n5; const nmax=20; var a:array[1..nmax, 1..nmax] of integer; n, m, i, j:byte; s, max:integer; begin randomize; repeat write('количество строк='); readln(m); until m in [1..nmax]; repeat write('количество столбцов='); readln(n); until n in [1..nmax]; writeln('исходная матрица:'); for i:=1 to m do begin for j:=1 to n do begin a[i, j]:=random(10)-2; write(a[i, j]:3); end; writeln; end; for j:=1 to n do begin s:=0; for i:=1 to m do if a[i, j]>0 then s:=s+a[i, j]; a[m+1, j]:=s; if s>max then max:=s; end; for i:=1 to n do if a[m+1, i]=max then writeln('столбец № ', i); end.

Информатика

Ответы

xeniagolovitinskaya4546

1)Золотые руки, золотое сердце, весеннее настроение

2)Лист – у тетради и у растения
Месяц – в календаре; на небе
Ключ – скрипичный; от двери; горный; гаечный
Горн – кузнечный; духовой инструмент
Конь – животное; шахматная фигура,
Лента – на бескозырке у моряка; бумажная; бант в косе; новостная в газете
Дробь – барабанная; математическая; ружейная
Мушка – насекомое; прицел в винтовке,
Ствол – у дерева; у винтовки,
Конек – морской; украшение на избе; на катке; на сцене
Вал – земляной; девятый; металлическая деталь
Рукав – у реки; у одежды
Тур – баран; в шахматах
Челнок – лодка; в швейной машине
Клетка – птичий домик; строение тела
Баланс – бухгалтерский; в гимнастике
Знак – дорожный; символ
Лук – оружие; растение
Фига – растение; кукиш
Дисциплина – воспитание; школьный предмет
Раздел – снял одежду; глава в книге
Надуть – обмануть; наполнить воздухом
Петрушка – занятная история; растение
Брак – некачественная работа; свадьба
Бродить – закисать (о жидкости); ходить без цели
Глава – самый главный; голова; раздел в книге
Ласка – доброта и нежность; животное
Норка – жилье животного; животное
Образование – усвоение знаний; организация чего-то нового
Охота – когда очень хочется; на животных

3) Дебет, кредит, авизо, проводка, эмбарго

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

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

со схемой алгоритма, кто шарит Текст: program n5; const nmax=20; var a:array[1..nmax, 1..nmax] of integer; n, m, i, j:byte; s, max:integer; begin randomize; repeat write('количество строк='); readln(m); until m in [1..nmax]; repeat write('количество столбцов='); readln(n); until n in [1..nmax]; writeln('исходная матрица:'); for i:=1 to m do begin for j:=1 to n do begin a[i, j]:=random(10)-2; write(a[i, j]:3); end; writeln; end; for j:=1 to n do begin s:=0; for i:=1 to m do if a[i, j]>0 then s:=s+a[i, j]; a[m+1, j]:=s; if s>max then max:=s; end; for i:=1 to n do if a[m+1, i]=max then writeln('столбец № ', i); end.
Ваше имя (никнейм)*
Email*
Комментарий*

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

ietishkin
Sidunevgeniya
elena-novikova-1992
Vyacheslavovna
козлов
Маргарита1091
Rakitin
Belov
maryshecka
ski89439
Сухроб944
missmorozova2
Носов Тоноян
aleksvasin
ukkavtodor6