информационный проект 10 класс по информатике основан на программировании на Wing101 очень простой проект
202
497
Ответы на вопрос:
1)uses crt; const n=17; //число элементов в массиве var f: array[1..n] of integer; i,s,k: integer; begin randomize; s: =0; k: =0; //чтобы не возникало ошибок, на всякий случай все обнулим for i: =1 to n do begin f[i]: =random(100)-50; //к примеру, взяла интервал от -50 до 50 //всего получилось 100 чисел, минимальное -50 writeln(f[i]); if f[i]> 0 then begin s: =s+f[i]; inc(k)//собираем сумму положительных элементов массива //и находим их количество, прибавляя к переменной к единицу end; end; writeln; //протсо сделаем пробел между массивом и результатами, чтобы не получилась каша writeln(s); writeln(k); end. 2)uses crt; const n=5; var l: array[1..n,1..n] of integer; i,j,max,k,t,m,i1,j1: integer; begin randomize; for i: =1 to n do for j: =1 to n do l[i,j]: =random(100)-50; for i: =1 to n do begin for j: =1 to n do write(l[i,j]: 4); //это означает, что на запись элемента массива отводится 4 места writeln; end; //таким способом я вывела на экран двумерный массив в форме матрицы writeln; max: =-50; //чтобы найти максимальный элемент, нужно сначала приравнять его к минимально возможному значению //так как побочная диагональ располагается для строк: от 1 до 4,а для столбцов - от 1 до 4 (сама побочная диагональ нас не интересует), то заведем еще переменные t и m t: =1; m: =4; //теперь найдем минимальный элемент выше побочной диагонали repeat for i: =t to t do for j: =1 to m do if l[i,j]> max then begin max: =l[i,j]; i1: =i; j1: =j; //мы нашли максимальный элемент и запомнили его положение end; inc(t); m: =m-1; until t=5; l[2,2]: =l[2,2]+l[i1,j1]; l[i1,j1]: =l[2,2]-l[i1,j1]; l[2,2]: =l[2,2]-l[i1,j1]; // поменяли их местами for i: =1 to n do begin for j: =1 to n do write(l[i,j]: 4); writeln; end; //опять выводим матрицу на экран writeln; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
KotenokLove1010.08.2022 15:41
-
LEST9820.04.2022 11:11
-
АлинаПристать625.02.2021 01:41
-
elena221306.07.2021 15:24
-
oraevadiana03.03.2023 20:25
-
Adil007124.04.2021 05:41
-
hobitmaksovtize11.11.2020 20:02
-
schapalenko17.03.2022 23:13
-
alina06724.07.2022 02:21
-
AbiloWa10.04.2020 19:16
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.