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

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


Определить, есть ли в данном массиве отрицательный элемент.

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

Используемые переменные:
A - массив,
I,j - номера элемента массива,
Flag - логическая переменная.

Для начала при помощи циклов генерируем случайным образом элементы массива и выводим массив на экран.
Затем перебираем все элементы массива, сравниваем с нулём и проверяем, есть ли среди них отрицательный. Если элемент меньше нуля, то логической переменной присваиваем true .
Выводим на экран результат. Если flag=true , то в данном массиве есть отрицательный элемент, в противном случае – нет.

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

Program ex3_1;
Uses Crt;
const k=3; n=4;
Type mas=Array[1..10,1..10] Of Integer;
Var a:mas;
i,j:Integer;
flag:boolean;
begin clrscr;
Randomize;
For i:=1 To k Do
For j:=1 To n Do
a[i,j]:=-10+Random(100);
For i:=1 To k Do Begin
For j:=1 To n Do
Write(a[i,j]:4);
Writeln; End;
For i:=1 To k Do
For j:=1 To n Do
If a[i,j]<0 Then flag:=true;
if flag=true then writeln('В данном массиве есть отрицательный элемент')
else writeln('В данном массиве нет отрицательного элемента');
Readkey;
End.

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






Назад