Информатика, вопрос задал neizvestnamozs3j5 , 7 лет назад

Дан одномерный массив .написать программу ,которая будет определять ,сколько раз первый элемент встречается в данном массиве на нечётных местах
Напишите на языке Паскаль

Ответы на вопрос

Ответил 13nisa13
0

const n=15;

var a:array [1..n] of integer;

i,k:integer;

begin

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(6);

write(a[i]:3,' ')

end;

for i:=2 to n do

if (a[1]=a[i]) and (i mod 2 <> 0) then k:=k+1;

writeln;

write('Первый элемент встречается в данном массиве на нечётных местах ',k,' раз')

end.

Ответил Аноним
0
Здравствуйте!Помогите пожалуйста:https://znanija.com/task/31065646
Новые вопросы