Примеры задач
Двумерные массивы
Определить, есть ли в данном массиве отрицательный элемент. Методика решения
Используемые переменные: 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.