Дан массив из элементов вывести на экран Каждый третий элемент масива

Question

Информатика

Дарий

7 декабря, 21:04

Дан массив из элементов вывести на экран Каждый третий элемент масива

+2

Ответы (1)

Знаете ответ на вопрос?

Анастасия · Answer 1

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.