Предмет:
ИнформатикаАвтор:
gretchenluceroАвтор:
hannacortezАвтор:
willowАвтор:
zacharyvtboАвтор:
bailey91Автор:
nicomedesprogram pr;
label cyc;
const
sizeX = 4; // количество ячеек в каждой строке
sizeY = 4; // количество строк
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.
Автор:
howiekramerДобавить свой ответ
Предмет:
ОбществознаниеАвтор:
allie13Ответов:
Смотреть
Предмет:
ИнформатикаАвтор:
yaritzaОтветов:
Смотреть
Предмет:
Українська моваАвтор:
pintoulxxОтветов:
Смотреть
Предмет:
МатематикаАвтор:
naomi60Ответов:
Смотреть