ses crt;
var
a:array [1..100] of integer;
i,n,q:integer;
e:real;
begin
clrscr;
write ('Vvedite kollichestvo elementov= ');
readln(n);
for i:=1 to n do
begin
write ('a[',i,']=');
read (a[i]);
readln;
if odd (a[i]) then q:=q+1;
end;
Writeln('Nechetnyh chisel= ',q);
readln;
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

14.12.2020, 07:30

Ответы с готовыми решениями:

Создать блок-схему для программы
uses crt; const rz = ;{разделителители слов, можно добавить еще, от файла зависит} var...

Создать блок-схему программы
Добрый вечер. Нужна помощь в создание блок-схемы программы. Никак не могу додуматься, как...

Создать блок схему по заданию
Вводится произвольная последовательность чисел, заканчивающаяся нулём. Определить произведение...

Создать блок схему с циклами
var a: array of integer; i,n : integer; begin write('Ведите колличество элементов в массиве:...

	14.12.2020, 07:30

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

14.12.2020, 07:30

Помогаю со студенческими работами здесь

Создать блок-схему для кода
function IsSorted(const w: String): Boolean; var i: Integer; begin IsSorted:=False; for...

Создать блок-схему для кода
Пожалуйста, нужна блок-схема для данного кода: uses crt; const n=6; m=6; var a:arrayof...

Создать блок-схему для кода
var a: array of real; i,l,k,n:integer; max: real; begin n:=10; for i:=1 to n do ...

Есть ли какой-нибудь софт, для перевода кода в блок-схему?
Есть ли какой-нибудь софт, для создания блок-схем? Имеется ввиду не Microsoft Office Visio и не...

Создать блок-схему для программы
var a: array of integer; i,n,k,p: integer; Begin readln(n); p:=1; for i:=1 to n do ...

Создать блок-схему для 2-х программ
1) Uses CRT; Var i,j:byte; begin for i:=10 to 99 do for j:=i to 99 do if i+j=100 then ...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх