Program massiv;
const N=10;
var i:integer;
mas:array[1..N]of integer;
begin
randomize;
for i:=1 to N do
begin
mas[i]:=random(100);
write(mas[i],' ');
end;
writeln(' ');
for i:=1 to N do
begin
if i mod 3=0 then
write(mas[i],' ');
end;
end.
Такое же задавали, только в эл. виде делать)
Я что-то не понял что на что конкретно ответить нужно.
я не знаю как оно работает, но оно работает
(возможно, можно оптимизировать, что возможно где-то я это не учёл)
в предпоследней строке с конца ( write (ZZ[i]:5) ) цифру 5 можно изменить на какой нужно (надеюсь вы понимаете моё кривое мышление), либо можно проще write (zz[i]) , но тогда они выведутся не в строку, а столбцом