Пишу прогу с процедурами, которая считает количество "особых "элементов матрицы, но в конце проги не работает writeln, в чём может быть проблема? вот . заданная целочисленная матрица размером nxm. определить k-количество "особых" элементов матрицы, считая элемент "особым", если в его строке слева от него находятся элементы, меньшие его, а справа - большие. вот мой код.и если уж у меня все плохо,то предложите свой код программы. program samost; const n=5; m=5; type tmatr = array[1..n, 1..m] of integer; var a: tmatr; i,j,k: integer; procedure printmatrix(var g: tmatr); begin var i,j,k: integer; for i: =1 to n do begin for j: =1 to n do write(g[i,j]: 4); writeln end; end; procedure makematrix; begin var i,j,k: integer; randomize; for i: =1 to n do for j: =1 to n do begin a[i,j]: =random(10)-5; end; end; begin makematrix; writeln('matrica a: '); printmatrix(a); k: =0; for i: =1 to n do for j: =1 to m do begin if (a[i,j]a[i-1,j]) then inc(k) end; writeln('kolichestvo elementov = ',k); end.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

VaSa4547

05.04.2023 18:03

Перечислите какие графические объекты содержится в окне приложения notepad,но при этом не содержатся в приложении calculator из перечисленных: 1.кнопка системного меню (system) 2.заголовок...

anitabadurova

18.01.2022 08:26

В таблице приведены запросы к поисковому серверу. Расположите обозначения запросов в порядке возрастания количества страниц, которые найдёт поисковый сервер по каждому запросу. Для...

va1k

09.01.2021 21:56

Как называется данное устройство (дайте полное название)...

bakulya2005ma

08.10.2021 01:16

Написать программу на языке pelles c решить уравнение sin(x) = cos(x) при 0.0...

макс3102

20.06.2021 23:45

Ввести 2 числа. если максимальное из них чётное, то вывести его. в другом случае вывести произведение минимального числа и половины максимального. в c#...

jkh40949

30.01.2021 00:28

2. разгадайте кроссворд «объекты и их признаки. по горизонтали. 2. определяется совокупностью действий, ко- торые могут выполняться над объектом или которые может выпол- нять сам объект....

vovaonuchko

01.12.2021 17:20

Организации города были привлечены к мероприятию по озеленению территории пустыря. сколько организаций участвовало в этом мероприятии, а также, сколько в среднем посадила деревьев...

alina555557

08.12.2021 23:41

Ввести число и определить, является ли оно чётным или кратным трём. вывести результат. также проинформировать пользователя, если число нечётное и не кратно трём. в c#...

kristinashevku1

06.10.2022 18:33

Даны 3 числа. определить, является ли хоть одно из чисел равным нулю. если есть нулевые значения, то вывести количество чисел, равных нулю. в c#...

VladimirLK

02.01.2022 15:42

Что надо написать вместо многоточия, чтобы вывести элементы массива x из n элементов в обратном порядке? for k in range (n): print ...

Ответ:

СиняяАкула

12.07.2020 13:25

Program samost;

const
n = 5;
m = 5;

type
tmatr = array[1..n, 1..m] of integer;

procedure PrintMatrix(g: tmatr);
var
i, j: integer;
begin
for i := 1 to n do
begin
    for j := 1 to n do Write(g[i, j]:4);
    Writeln
end
end;

procedure MakeMatrix(var a: tmatr);
var
i, j: integer;
begin
Randomize;
for i := 1 to n do
    for j := 1 to n do a[i, j] := random(10) - 5;
end;

var
a: tmatr;
i, j, k: integer;

begin
MakeMatrix(a);
Writeln('matrica A: ');
PrintMatrix(a);
k := 0;
for i := 1 to n do
    for j := 2 to m-1 do
      if (a[i, j] < a[i, j+1]) and (a[i, j] > a[i, j-1]) then inc(k);
Writeln('kolichestvo elementov = ', k);
end.

Тестовое решение:

matrica A:
   4   4   0 -2 -3
   1 -4   4 -5   0
   2   4 -2   1 -2
-4 -5 -4 -2   4
   1   0   0 -3   2
kolichestvo elementov = 2

0,0(0 оценок)

Ответ:

Nina34732

12.07.2020 13:25

Program samost;
const n=5;
m=5;
type tmatr = array[1..n, 1..m] of integer;
var a:tmatr;
i,j,k:integer;
procedure PrintMatrix(var g:tmatr);
begin
var i,j:integer;
for i:=1 to n do
begin
for j:=1 to n do
write(g[i,j]:4);
writeln
end;
end;
procedure MakeMatrix;
begin
var i,j,k:integer;
randomize;
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=random(10)-5;
end;
end;
begin
MakeMatrix;
writeln('matrica A: ');
PrintMatrix(a);
k:=0;
for i:=1 to n do
for j:=2 to m-1 do
begin

if (a[i,j]>a[i,j-1])and(a[i,j]<a[i,j+1]) then
begin
k:=k+1; ;
writeln(i,j);
end;
end;
writeln('kolichestvo elementov = ',k);
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку