Вывести количество столбцов, элементы которых возрастают.

@AlexRoom · Регистрация: 14.11.2012

Author24 — интернет-сервис помощи студентам

Дана матрица размера 5 x 10. Вывести количество столбцов, элементы которых возрастают.

@weter_ghetto · 20.11.2012, 00:15

Написал.Если оно отпишись

Pascal

program kolvo;
uses crt;
const m=2;n=2;
var
i,k:integer;
count:integer;
mas:array [1..m,1..n] of integer;
begin
clrscr;
{VVod massiva}
for i:=1 to m do begin
for k:=1 to n do begin
readln(mas[i,k]);
end;
end;
 
count:=0;
{Yslovie}
for i:=1 to m do begin
for k:=2 to n do begin
if mas[k,i]>mas[k-1,i]
then
count:=count+1;
 
end;
end;
 
writeln(count);
readln;
end.

Добавлено через 25 минут
Блин не то сделал))Вот код,должно работать

Pascal

program kolvo;
uses crt;
const m=5;n=10;
var
i,k:integer;
count:integer;
mas:array [1..m,1..n] of integer;
begin
clrscr;
{VVod massiva}
for i:=1 to m do begin
for k:=1 to n do begin
readln(mas[i,k]);
end;
end;
 
count:=0;
{Yslovie}
for i:=2 to m do begin
for k:=1 to n do begin
if mas[i,k]>mas[i-1,k]
then
count:=count+1;
 
end;
end;
 
writeln(count);
readln;
end.

@AlexRoom · 20.11.2012, 01:21 **[ТС]**

Большое спасибо)

Добавлено через 19 минут
Слушай,так она ничего не выводит(

@weter_ghetto · 20.11.2012, 01:28

В конце переменная count число выводит

Добавлено через 1 минуту
Добавь во

Pascal

1	writeln(count);

writeln("Количество столбцов="count);

@AlexRoom · 20.11.2012, 12:51 **[ТС]**

Оно выдает ошибку когда я это добовляю,типо неверное вырожение
Что делать?

@AlexRoom 0 / 0 / 0 Регистрация: 14.11.2012 Сообщений: 19
		1
	Вывести количество столбцов, элементы которых возрастают. 19.11.2012, 23:19. Показов 835. Ответов 4 Метки нет (Все метки) Дана матрица размера 5 x 10. Вывести количество столбцов, элементы которых возрастают. 0

@AlexRoom 0 / 0 / 0 Регистрация: 14.11.2012 Сообщений: 19
	20.11.2012, 01:21 [ТС]	3
	Большое спасибо) Добавлено через 19 минут Слушай,так она ничего не выводит( 0

@AlexRoom 0 / 0 / 0 Регистрация: 14.11.2012 Сообщений: 19
	20.11.2012, 12:51 [ТС]	5
	Оно выдает ошибку когда я это добовляю,типо неверное вырожение Что делать? 0

Опции темы