Примеры задач

Двумерные массивы

Определить, есть ли в данном массиве строка, состоящая только из положительных элементов.

Методика решения

Используемые переменные:
а – двумерный массив;
n,m – размерность массива;
I,j – индексы элементов массива;
Z – количество положительных элементов строки;
Flag – логическая переменная.

В цикле формируем случайным образом элементы массива и выводим полученный массив на экран.

Далее, просматриваем строки массива с помощью цикла и подсчитываем количество положительных элементов в каждой строке. Для этого сравниваем каждый элемент строки с нулём. Если элемент положительный, то переменную z увеличиваем на 1 (перед просмотром каждой строки переменную z обнуляем). Если после просмотра строки z равно количеству элементов строки ( z=m ) ,то есть все элементы строки положительные, то логической переменной присваиваем значение true .

Выводим на экран результат. Если flag имеет значение true , то выводим что в массиве есть строка с требуемым условием, в противном случае – такой строки нет.

Листинг программы

Program ex3_4;

Uses Crt;

Const n=5; m=5;

Type mas=array[1..n,1..m] of integer;

Var a:mas;

i,j,z:integer; flag:boolean;

Begin

clrscr;

randomize;

For i:=1 to n Do

For j:=1 to m Do

a[i,j]:= -25+random(51);

For i:=1 to n Do

Begin

For j:=1 to m Do Write(a[i,j]:4);

WriteLn;

End;

For i:=1 To n Do

begin

z:=0;

For j:=1 To m Do

If (a[i,j]>0) Then z:=z+1;

if z=m then flag:=true;

end;

if flag then Writeln('есть строка с требуемым условием')

else Writeln('нет строки с требуемым условием');

Readkey;

End.

Запустить программу

Назад