Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Задача на массив, язык PASCAL, ПОМОГИТЕ ПОЖАЛУЙСТА

Георгий Василенко Ученик (95), на голосовании 1 год назад
Помогите пожалуйста. Сформировать и вывести на экран массив из натуральных n чисел. Необходимо подсчитать количество нечетных чисел его элементов и среднее арифметическое значение. Решить на языке ПАСКАЛЬ.
Голосование за лучший ответ
Krab Bark Искусственный Интеллект (296977) 1 год назад
program p1;
var a:array[1..100]of integer; n,i,m,s:integer;
begin
write('n: '); readln(n);
randomize; for i:=1 to n do a[i]:=random(100);
for i:=1 to n do write(a[i],' '); writeln;
m:=0; for i:=1 to n do m:=m+ord(odd(a[i]));
s:=0; for i:=1 to n do s:=s+a[i];
writeln('odds=',m,', average=',s/n);
end.
Jurijus Zaksas Искусственный Интеллект (453892) 1 год назад
Так-таки голый паскаль с произвольным количеством чисел? Охренеть - не встать. Ну лови:
 program project1; 

var
i, n, s, c: Integer;
a, b: ^Integer;

begin
ReadLn(n);
GetMem(a, n*SizeOf(Integer));
b:=a;
s:=0;
c:=0;
for i:=1 to n do
begin
ReadLn(b^);
s:=s+b^;
inc(c, b^ and 1);
inc(b);
end;
b:=a;
for i:=1 to n do
begin
Write(b^, ' ');
Inc(b);
end;
WriteLn(#13#10'Odds=', c);
WriteLn('Avg=', s/n);
ReadLn;

end.
Похожие вопросы