тема: Нахождение минимального и максимального элемента в массиве
Массив А(12) заполнить случайными числами от 0 до 20. Найти min Program a1; Var i, p: integer; A:array[1..12] of integer; BeginFor i:=1 to 12 do begin a[i]:=random(20); write(a[i]:3) end; writeln; p:=a[1]; For i:=1 to 12 do if a[i]
Массив А(10,2) заполнить по формуле a[i,j]=i/j+1. Найти max Program a2; Var i,,j, p: integer; A:array[1..10,1..2] of real; BeginFor i:=1 to 10 do begin For j:=1 to 2 do begin a[i,j]:= i/j+1; write(a[i,j]:3) end; Writeln; end; writeln; p:=a[1,1]; For i:=1 to 10 do For j:=1 to 2 do if a[i,j]>p then p:=a[i,j]; write(p=,p) End.
Самостоятельно ( в тетради и за компьютером): 1.Массив А(9,3) заполнить случ. числами от -2 до 5. найти максимальный элемент. 2.Массив А(40) заполнить по формуле a[i]=0.5*i-20. Найти min Дома: 1.A(90) по формуле: a[i]=i-2.5 Найти в нем max 2.A(6,6) случ. Числами от 0 до 100 найти min 3.Подготовиться к самостоятельной работе по теме «Массиве» 4.Подготовить тетради на проверку.