Ответы на вопрос:
ответ:
program matrica;
const k=10;
type vector=array[1..k]o byte; masiv=aray[1..k] o vector;
var b: masiv;
procedure vved(n: byte; var a masiv);
var i,j: byte;
begin
randomize;
for i: =1 to n do
for j: =1 to n do
a[i,j]: =0;
for j: =round(n/2) to n do
for i: =n-j+1 to j do
a[i,j]: =random(255);
end;
proceure vuvid(n: byte; : masiv);
var i,j: byte;
begin
for i: =1 to do
begin
for j: =1 to n do
write(a[i,j]: 5);
riteln;
end;
end;
procedure rahnok(n: byte; a: masiv);
var i,j: byte; s,l: byte;
begin
l: =0;
for j: =1 to round(n/2) do
for i: =j to (n-j+1) do
if (a[i,j] mod 2=0) then l: =l+1;
writeln('kilkist=' l);
подробнее - на -
объяснение:
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Санчоs28.08.2020 03:47
-
Ninell9813.01.2023 16:41
-
Alikman12303.04.2020 05:05
-
artyom1111111223.01.2022 15:33
-
Учёныймастер0603.11.2021 01:26
-
жека026203.07.2020 18:01
-
seluchka16.07.2020 17:36
-
KRMP03709.10.2021 12:32
-
ArtemDeineka22.08.2020 23:58
-
burakova198520022.06.2020 02:45
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.