Задание:
Составьте программу, которая формирует массив из шестнадцати целых чисел от -20 до 20 и находит в этом массиве индексы элементов, значения которыхкратным трем.
Решение:
Как-то так… 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.
Знаете другой ответ?