Дан двумерный массив из целых чисел. Найти номера строк, все элементы

Дан двумерный массив из целых чисел. Найти номера строк, все элементы которых положительные и четные

Задать свой вопрос
Яна Спандьярова
Язык програмирования?
Олег Фололеев
Если не указан либо не отвечают - выбирайте хоть какой - придраться не сумеют.
1 ответ

program raf105;

const

 n = 3;

var

 a:array[1..n,1..n] of integer;

 i,j:integer;

 x:boolean;

begin

for i:=1 to n do

begin

 writeln('Введите три элемента строчки ',i,' по очереди');

 for j:=1 to n do

   readln(a[j,i]);

end;

writeln('Номера строк в которых все элементы положительные и чётные:');

for i:=1 to n do

begin

 if x

   then writeln(i-1);

 x:= true;

 for j:=1 to n do

   if x and (not(a[j,i]gt;0)) or (not((a[j,i] mod 2)=0))

     then x:=false

end;

end.

Язык PascalABC

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт