1.Заполните массив значениями случайным образом и выведите его на экран.
Матрица 5х5
const n=5;
var a:array[1..n,1..n]of integer;
i,j,max,k,t:integer;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:3);
end;
writeln;
end;
write('Введите k');
readln(k);
max:=-1;
t:=0;
for i:=1 to n do for j:=1 to n do if a[i,j] mod k=0 then
begin
t:=t+1;
if a[i,j]>max then max:=a[i,j];
end;
write('t=',t);
writeln('MAX=',max);
end.
222
380
Ответы на вопрос:
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
12345678978531.01.2020 11:38
-
Skillet12151628.11.2022 15:02
-
Abdurauf200405.11.2022 19:08
-
6vyvu06.04.2023 21:19
-
whitreek422302.09.2021 10:03
-
SashaPolishuk02.12.2021 10:39
-
Nic574879623706773619.11.2022 09:05
-
ivanovartem450p08ajg04.09.2020 01:00
-
maksi007105.04.2022 22:58
-
essssspoll14.03.2022 04:51
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.