var a:array[1..20] of integer; i,arf,k:integer;

begin
k:=0;
for i:=1 to 20 do
begin
a[i]:=random(10);
if (a[i]/2=a[i] div 2) or (i/2<>i div 2) then
begin arf:=arf+a[i]; inc(k); end;
end;
arf:=round(arf/k);
for i:=1 to 20 do writeln('a[',i,']= ',a[i]);
writeln('Srendee arirfm. chentix chisel u nechetnix indexov = ',arf);
readln;
end.

0 0

4 года назад

Помогите с информатикой. В приложение "Кумир", а именно Робот надо написать систему команд. С помощью "Цикла пока" (нц пока ...)

андреймарченко

1) использовать Робот

алг

нач

вниз

нц пока не слева свободно и снизу свободно

закрасить

вниз

кц

нц пока не снизу свободно и не слева свободно

закрасить

вправо

кц

нц пока не снизу свободно и справа свободно

закрасить

вправо

кц

нц пока не снизу свободно и не справа свободно

закрасить

вверх

кц

нц пока не справа свободно

закрасить

вверх

кц

кон

0 0

4 года назад

Для каждого объекта укажите одну модель и назовите те свойства , значение которых является одинаковыми у объекта и его модели. а

елена2808

1. Объект: радуга
Модель: рисунок радуги
Свойства: семицветная.
2. Объект: самолет
Модель: макет самолета
Свойства: одинаковая форма, цвет.
3. Объект: яблоко
Модель: муляж яблока
Свойства: одинаковая форма, цвет.

0 0

4 года назад