1 строчка = 0,1,2,3,4,5,6,8
2 = 0,2,4
3 что значит / ?
В шитье , в парикмахерской,урок труда это тоже моделирование
Ответ венкл Потом ещё поросуждаю
Размер массива не указан, поэтому в программе считаю его 100. Легко переделать под себя.
<h3>Код (Pascal)</h3>
var
a: array[1..100] of integer;
i, cnt: integer;
begin
for i := 1 to 100 do
a[i] := random(1001) + 1000;
for i := 1 to 100 do
if (a[i] div 10) mod 2 = 0 then cnt := cnt + 1;
writeln(cnt);
end.
--------------------------------------------------
Файл с решением прикреплён.
<span>1. uses</span> crt;
<span>2. var</span> i<span>:</span><span>byte</span>; {раздел обявления переменных}
<span>begin</span><span>writeln</span><span>(</span><span>'--------------'</span><span>)</span>;
<span>writeln</span><span>(</span><span>'|Число|Корень|'</span><span>)</span>;
<span>writeln</span><span>(</span><span>'--------------'</span><span>)</span>;
<span>for</span> i<span>:=</span><span>1</span><span>to</span><span>20</span><span>do</span> <span>//цикл с параметром</span><span>writeln</span><span>(</span><span>'|'</span><span>,</span>i<span>:</span><span>4</span><span>,</span><span>' |'</span><span>,</span><span>sqrt</span><span>(</span>i<span>)</span><span>:</span><span>6</span><span>:</span><span>2</span><span>,</span><span>'|'</span><span>)</span>; <span>//вывод</span><span>writeln</span><span>(</span><span>'--------------'</span><span>)</span>;
<span>end</span>.