Дан радиус окружности и сторона квадрата что больше длина окружности или периметр квадрата ,информатика

Question

Информатика: Дан радиус окружности и сторона квадрата что больше длина окружности или периметр квадрата ,информатика

akowa05 · Accepted Answer

Const n=20;
var a:array [1..n] of integer;
k,i:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(90)+10;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln('В массиве ',k,' четных чисел');
writeln('Элементы с нечетными номерами:');
for i:=1 to n do
if i mod 2 <> 0 then write(a[i],' ');
end.

Пример:
Исходный массив:
55 40 42 16 52 12 46 58 75 72 39 51 54 64 83 20 77 37 52 23
В массиве 12 четных чисел
Элементы с нечетными номерами:
55 42 52 46 75 39 54 83 77 52

MOGZ ответил