ПАСКАЛЬ АБС!! 10 КЛАСС! СРОЧНО!!
Дан массив А(n). Определите кол-во нечетных элементов массива, стоящих на четных местах. Выведите на экран исходный массив и найденное кол-во.
var n:integer;
begin
for n:1 to n do
begin;
read A[n];
if n mod 2=0 then
if A[n] mod 2=1 then
writeln(A[n]);
end;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var n:integer;
begin
for n:1 to n do
begin;
read A[n];
if n mod 2=0 then
if A[n] mod 2=1 then
writeln(A[n]);
end;
end.