Заполнить массив 10-ю случайными целыми числами - вопрос №1102554010518 от Cosb 19.07.2021 09:16

Question

Информатика: Заполнить массив 10-ю случайными целыми числами из промежутка [5; 18] и вывести на экран каждый третий элемент.

Cosb · Answer

user crt;vara:array{1 .. 10} of integer;1: byte;randomze;begin for i:=1 to 10 do begin   a{i}:=random(18)+5;  if (i mod 3=0) then write (a[i], );end;end.Объяснение:...