Вопрос по информатике:
Плиз помогитееее))) 1)Вычислить среднее арифметическое массива. 2)Определить количество четных элементов. 3)Вычислить сумму элементов с нечетными номерами.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 21.09.2015 09:31
- Информатика
- remove_red_eye 4943
- thumb_up 30
Ответы и объяснения 2
1)
const NN=50;
var
a:array [1..NN] of integer;
i,n:integer;
s:real;
begin
write('Введите количество элементов массива: ');
readln(n);
s:=0;
for i:= 1 to n do
begin
readln(a[i]);
s:=s+a[i];
end;
writeln('Среднее арифметическое массива = ',s/n)
end.
2)
const NN=50;
var
a:array [1..NN] of integer;
i,n:integer;
s:real;
begin
write('Введите количество элементов массива: ');
readln(n);
s:=0;
for i:= 1 to n do
begin
readln(a[i]);
if a[i] mod 2 =0 then s:=s+1;
end;
writeln('Количество четных элементов = ',s)
end.
3)
const NN=50;
var
a:array [1..NN] of integer;
i,n:integer;
s:real;
begin
write('Введите количество элементов массива: ');
readln(n);
s:=0;
for i:= 1 to n do
begin
readln(a[i]);
if i mod 2 =1 then s:=s+a[i];
end;
writeln('Cумма элементов с нечетными номерами = ',s)
end.
- 22.09.2015 06:38
- thumb_up 37
Program a1;
Uses crt;
const n=8;
Var a:array[1..n] of integer;
ch,s:integer;
sr:real;
i:byte;
Begin
Writeln('Массив');
For i:=1 to n do
begin
a[i]:=random(101)-50;
writeln(a[i]);
end;
For i:=1 to n do
s:=s+a[i];
sr:=s/n;
For i:=1 to n do
if a[i] mod 2 = 0 then ch:=ch+1;
s:=0;
For i:=1 to n do
if i mod 2 0 then s:=s+a[i];
Writeln('Ответы');
Writeln('1) Среднее значение элементов массива = ', sr);
Writeln('2) Количество чётных элементов = ', ch);
Writeln('3) Сумма элементов массива с нечётными номерами = ', s);
End.
- 23.09.2015 12:39
- thumb_up 14
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.