var a:array[1..3, 1..4] of integer; i,j,min:integer; begin for i:=1 to 3 do for j:=1 to 4 do begin read(a[i,j]); if a[i,j]<0 then min:=a[i,j]; end; for i:=1 to 3 do for j:=1 to 4 do if (a[i,j]<0) and (a[i,j]<min) then min:=a[i,j]; writeln('Минимальное отрицательное число ',min); end.
Задача №2 var a:array[1..2, 1..5] of integer; i,j:integer; begin for i:=1 to 2 do for j:=1 to 5 do read(a[i,j]); for i:=1 to 2 do begin for j:=1 to 5 do write(a[i,j],' '); writeln; end; end.
Задача №3 var a:array[1..3, 1..4] of integer; i,j:integer; begin for i:=1 to 3 do for j:=1 to 4 do read(a[i,j]); for i:=1 to 3 do for j:=1 to 4 do if a[i,j]=10 then writeln('Номер столбца — ',j,' Номер строки — ',i); end.
Будет напечатан день декады, в который вылетело меньше всего самолетов. Причем если таких дней несколько будет выбран последний из них. В нашем случае это 6. Ниже в программе после // написано пояснение к нижеследующему коду.
Var k, m, day: integer; Dat: array[1...10] of integer; Begin // Здесь определяются значения элементов массиа Dat - количество самолетов за каждый день декады Dat[1] := 2; Dat[2] := 2; Dat[3] := 3; Dat[4] := 3; Dat[5] := 2; Dat[6] := 2; Dat[7] := 5; Dat[8] := 5; Dat[9] := 6; Dat[10] := 6; //переменным день и m присваиваются начальные значения //переменная m предназначена для запоминания промежуточного результата работы алгоритма. day:=1; m := Dat[1]; //организуем цикл в котором каждый (начиная со второго) день сравнивается с текущим значением m в котором фиксируется каждый раз меньшая величина из двух сравниваемых по количеству самолетов for k := 2 to 10 do //если кол-во самолетов в текущий день (Dat[k]) меньше или равно самому меньшему количеству самолетов за предыдущие дни ( мы помним, что m изначально присвоили значение для первого дня)), то значение m меняем на значение Dat[k] и переменной day присваиваем номер этого дня if Dat[k] =< m then begin m:= Dat[k]; day := k; end; //после работы цикла выводим последнее значение day. т.е. номер дня, в котором вылетело меньше всего самолетов write(day); End.
танці і матиматика
Объяснение: