Дан массив чисел. Определить каких чисел больше четных или нечетных. Введите массив целых чисел из 15 элементов:
8,15,17,10,5,2,87,33,28,99,14,75,13,25,64 Нечетных чисел больше чем четных
программа:Pascal Пожалуйста!!!!!
8,15,17,10,5,2,87,33,28,99,14,75,13,25,64 Нечетных чисел больше чем четных
программа:Pascal Пожалуйста!!!!!
More Questions From This User See All
Answers & Comments
var a:array [1..15] of integer;
i,k:integer;
BEGIN
k:=0;
writeln('Введите числа');
for i:=1 to 15 do begin
read(a[i]);
if (a[i] mod 2=0) then k:=k+1;
end;
if k<8 then
writeln('Нечетных чисел больше, чем четных.') else
writeln('Четных чисел больше, чем нечетных.');
end.
Без массива:
Program n_1;
var a, b, i, n: integer;
begin
a:=0; b:=0;
for i:=1 to 15 do begin
read(n);
if n mod 2 = 1 then a:=a+1
else b:=b+1;
end;
if a>b then writeln('Нечетных чисел больше, чем четных')
else writeln('Четных чисел больше, чем нечетных');
end.
С массивом:
Program n_1;
var a, b, i: integer; n: array [1..15] of integer;
begin
a:=0; b:=0;
for i:=1 to 15 do begin
read(n[i]);
if n[i] mod 2 = 1 then a:=a+1
else b:=b+1;
end;
if a>b then writeln('Нечетных чисел больше, чем четных')
else writeln('Четных чисел больше, чем нечетных');
end.
Но честно, не вижу смысла использовать массив.