kattti
Опубликовано 7 лет назад по предмету Информатика от kattti


Составьте программу, которая формирует массив из шестнадцати целых чисел от -20 до 20 и находит в этом массиве индексы элементов, значения которых кратным трём.

  1. Ответ
    Ответ дан vovazen

    Как-то так...

    Program g;VarA, B : Integer;N : Integer;S : Integer;z:array[0..16] of integer;i : Integer;v:integer;BeginA:=(-20);B:=20 ;N:=16 ;For i := 1 To N DoBeginS := Trunc(Random(B-A)+A);WriteLn (i:2,'-е случайное число:',S:4);End;beginwriteln('Индексы элементов кратных 3:'); for v:=0 to 16 do begin z[v]:=random(40)-20; if z[v] mod 3 = 0 then write(v, ' ') end; end;End. 

  2. Ответ
    Ответ дан ivanpakalnishkis

    var

     i:integer;

     a:array[1..16]of integer;

    begin

     for i:=1 to 16 do

    begin

     a[i]:=random(40)-20;

     if a[i] mod 3=0 then write(i,' ');

    end;

    writeln;

    end.

Не тот ответ, который вам нужен?
Найди нужный
Самые новые вопросы
99335871
Другие предметы - 11 месяцев назад

В какой оболочке земли живёт большинство живых организмов?

99335871
Другие предметы - 11 месяцев назад

Из каких неживых частей состоит экосистема

mandrykin
Другие предметы - 11 месяцев назад

На какие расы делятся население земли

kinda2007
Другие предметы - 11 месяцев назад

Определение статуса военнослужащего (краткий ответ!!)

Санёк1999
Другие предметы - 11 месяцев назад

Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.

Задай вопрос

Лучшие за месяц


Интересные статьи:


Пошаговый план подготовки к ЕГЭ за полгода для школьников
Не сдал ЕГЭ пересдача апелляция альтернативные пути
10 ошибок на ЕГЭ по русскому и способы их избежать
Выбор предметов ЕГЭ для поступления
Секреты подготовки к экзаменам дома от отличников