Составьте программу, которая формирует массив из шестнадцати целых…

Question

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

Answer 1

50

rvlz30

19 марта 2023

Как-то так… 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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: