Const N = 10; Var A:array[1..N] of byte; i,k:integer; Begin k:=0; Write('Текущие оценки по предметам:'); For i:= 1 to N do Begin A[i]:=random(5)+1; Write(' ',A[i]); if (A[i] = 4)or(A[i] = 5) then k:=k+1 End; WriteLn; WriteLn('Общее количество четвёрок и пятёрок: ',k); End.