Регистрация
Yulia1393
21.06.2021 08:03
Информатика
Есть ответ 👍

3) сделайте умозаключение: а) Все планеты вращаются вокруг своей оси, Марс - это
планета, значит...
б) Все квадраты – это прямоугольники, у прямоугольника
четыре угла, значит, у квадрата...
​

215
407
Посмотреть ответы 1

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

егор1465
егор1465
4,6(45 оценок)

Var A:array[1..100] of integer;

   i,n:integer;

Begin

   write('Введите n: ');readln(n);

   For i:=1 to n do

    Begin

     A[i]:=random(11)-5;

     write(A[i]:3);

    End;

   writeln;

   writeln('Элементы у которых индексы являются степенями 2-ки');

   i:=1;

   While i<n do  

    Begin

     i:=i*2;

     if i<=n then write(A[i]:3);

    End;

   readln;

End.

Популярно: Информатика