двумерный массив

@НЕТ · Регистрация: 29.11.2010

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

Разработать программу, позволяющее в двумерном массиве определить количество и положение элементов, не больше заданного пользователем числа и сумма индексов которых четна.

Вот ниже код программы

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  TMatrix = array of array of integer;
  var
  A: TMatrix;
  RowCount,Count,ColCount:Integer;
  x:Integer;
  i,j: Integer;
 
begin
 Randomize;
 Write ('vvedite 4islo strok Matrix A:');
 ReadLn (RowCount);
 Write ('vvedite 4islo stolbcov Matrix A:');
 ReadLn (ColCount);
 SetLength (A,RowCount,ColCount);
 WriteLn ('Matrix A:');
 For i:=0 to High (A) do
 Begin
   For j:=0 to High(A[i]) do
   begin
A[i,j] :=-10+Random(21);
Write(A[i,j]:5);
    end;
WriteLn;
 end;
 Write('vvedite x;');
 readLn(x);
 Count:=0;
 for i:= 0 to High(A) do
 for j := 0 to high(A[i]) do
[B][COLOR="Red"] if (A[i,j]>x) and (ABS(i-j) mod 5=0)[/COLOR][/B]
 then
 begin
   write('A[',i,',',j,']=',A[i,j]:3,'   ');
   Inc(Count);
 end;
 WriteLn('Vsego ',Count,' elementov.');
 readLn;
   end.

в строчке которую выделеил красным надо писать другое...а что именно не могу понять..помогите кто знает))))

@KeLLeR_2 · 06.12.2010, 18:00

Может лучше так
if (A[i,j]>x) and (i mod 2 = 0) and (j mod 2 = 0)

надеюсь правильно понял задание и искомый элемент больший икс и имеющий индексы только из чётных чисел, если так то как то странно ты проверял на чётность.

@KeLLeR_2 2 / 2 / 1 Регистрация: 01.06.2009 Сообщений: 134 Записей в блоге: 1
	06.12.2010, 18:00	2
	Может лучше так if (A[i,j]>x) and (i mod 2 = 0) and (j mod 2 = 0) надеюсь правильно понял задание и искомый элемент больший икс и имеющий индексы только из чётных чисел, если так то как то странно ты проверял на чётность. 0

Опции темы