10 КЛАСС! ПАСКАЛЬ АБС!! СРОЧНО!! ПОМОГИТЕ ПОЖАЛУЙСТА! Дан массив А(n). Опередлите кол-во нечет элементов массиава, стоящих на четных местах. выведите на экран исходный массив и найденное кол-во.
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.
Не нашли ответ?
Похожие вопросы