10 КЛАСС! ПАСКАЛЬ АБС!! СРОЧНО!! ПОМОГИТЕ ПОЖАЛУЙСТА!
Дан массив А(n). Опередлите кол-во нечет элементов массиава, стоящих на четных местах. выведите на экран исходный массив и найденное кол-во.
const n = 15;
var
a: array[1..n] of integer;
i, count: integer;
begin
for i := 1 to n do begin
a[i] := random(100);
write(a[i], );
if(i mod 2 = 0) and (a[i] mod 2 <> 0) then inc(count);
end;
writeln;
writeln([, count, ]);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
