Як установити значення властивостей ліній контурів, внутрішньої області графічних примітивів

252

368

Посмотреть ответы 2

Ответы на вопрос:

бэлла31

Информатика

4,6(35 оценок)

Думаю это вам

АльтЛанд

Информатика

4,5(10 оценок)

Var i,n: integer; a: array[1..20]of integer; begin writeln('исходный массив: '); for i: =1 to 20 do begin a[i]: =random(10); if (i mod 2=1) and (a[i] mod 2=0) then n: =n+1; write(a[i],' '); end; writeln; writeln('искомых элементов: ',n); end.