Сформировать одномерный массив на основе двумерного по заданному условию

@Дарлин · Регистрация: 06.12.2016

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

Дан А [6,6] двумерный массив. Составь В(6) массив по следующему условию: 1 присвой к B (і), если элементы строк і находятся по возрастанию, иначе 0 присвой к В(і)
За ранее благодарю!

@Hitoku · 29.03.2017, 19:26

Pascal

const n=6;
var a:array [1..n,1..n] of integer;
    b:array [1..n] of byte;
    i,j:byte; t:boolean;
begin
  for i:=1 to n do begin
    t:=true;
    for j:=1 to n do begin
      a[i,j]:=random(51); write(a[i,j]:3,' ');
      //readln(a[i,j]);
      if j>1 then
        if a[i,j]<a[i,j-1] then t:=false;
    end;
    writeln;
    if t then b[i]:=1 else b[i]:=0;
  end; writeln;
  for i:=1 to n do write(b[i],' ');
end.

@Дарлин 0 / 0 / 0 Регистрация: 06.12.2016 Сообщений: 52
		1
	Сформировать одномерный массив на основе двумерного по заданному условию 29.03.2017, 18:25. Показов 2380. Ответов 1 Метки нет (Все метки) Дан А [6,6] двумерный массив. Составь В(6) массив по следующему условию: 1 присвой к B (і), если элементы строк і находятся по возрастанию, иначе 0 присвой к В(і) За ранее благодарю! 0

	29.03.2017, 19:26

Опции темы

Сформировать одномерный массив на основе двумерного по заданному условию

Решение