Var B : array [1..10] of integer; i,s,k : integer;begin k := 10; s := 0; randomize; for i := 1 to 10 do begin B[i] := random(40); writeln(B[i]); if B[i] > k then s := 1 + s; end;write('Кол-во элементов массива, больших k : ', s);end.
var a: array [1..20] of integer;
i, k: integer;
s: real;
begin
for i:=1 to 20 do
readln(a[i]);
s := 0;
k := 0;
for i:=1 to 20 do
if (a[i] >=0) and (a[i] mod 2=0) and (a[i]>6) then begin
s := s + a;
k := k + 1;
end;
writeln('среднее: ', s/k);
<span>end. </span>
Ответ:
4) 1010011, 83, 53
5) Б
Если требуются объяснения - распишу, займет 15 минут