pascal
Объяснение:
const
n = 10;
var
k, i: integer;
a: array[1..n] of integer;
begin
for i:= 1 to n do
a[i] := round(random(1000)) + 1000;
Write(a[i], ' ');
if (a[i] mod 2 = 0) and ((a[i] div 100) mod 2 = 0) then inc(k);
end;
WriteLn;
WriteLn('Количество искомых элементов равно ', k);
end.
pascal
Объяснение:
const
n = 10;
var
k, i: integer;
a: array[1..n] of integer;
begin
for i:= 1 to n do
begin
a[i] := round(random(1000)) + 1000;
Write(a[i], ' ');
if (a[i] mod 2 = 0) and ((a[i] div 100) mod 2 = 0) then inc(k);
end;
WriteLn;
WriteLn('Количество искомых элементов равно ', k);
end.