Нужна flow форма, буду признателен
program pr;
label cyc;
const
sizex = 4;
sizey = 3;
var
matrix: array[1..sizey, 1..sizex] of integer;
i, k: integer;
begin
writeln('чтение элементов массива');
for i : = 1 to sizey do for k : = 1 to sizex do readln(matrix[i, k]);
writeln('исходный массив: ');
for i : = 1 to sizey do
begin
for k : = 1 to sizex do
begin
write(matrix[i, k]);
end;
writeln('');
end;
writeln('подходящие строки: ');
for i : = 1 to sizey do
begin
for k : = 2 to sizex do
begin
if matrix[i, k] > = matrix[i, k - 1] then goto cyc;
end;
writeln(i);
cyc:
continue;
end;
end.
212
339
Ответы на вопрос:
Begin var ar : = readarrinteger(readinteger('введите n: ')); var k : = readinteger('введите k: '); ar.where(x -> x mod k = 0).print; end.
Популярно: Информатика
-
Виктория2005280829.12.2021 06:36
-
Klaro55528.07.2020 11:50
-
КариM12.04.2022 02:23
-
aslanəz17.12.2020 09:00
-
Kykyshonochek130517.11.2022 22:59
-
zhadyra198416.05.2022 09:14
-
Alaaxbek28.12.2021 15:39
-
SerezhaYakovle18.02.2020 11:22
-
POLINAFLY11.11.2022 14:14
-
alinaaubakirova104.06.2021 14:18