1.Найти в массиве те элементы, значение которых меньше среднего арифметического, взятого от всех элементов массива. 2.Массив А вводится с клавиатуры. Найти среднее арифметическое его элементов с нечетными номерами. Размер произвольный. Заранее спасибо)))
94
ОТВЕТЫ
1)
program Ok;
const n = 10;
var
A:array[1..n] of real;
sum:real;
i:integer;
begin
sum:=0;
for i:=1 to n do
begin
read(A[i]);
sum:=sum+A[i];
end;
sum:=sum/n;
for i:=1 to n do
begin
if(A[i]lt;sum) then
writeln(A[i]);
end;
end.
2)
program Ok;
const n = 10;
varA:array[1..n] of real;
sum:real;
i,k:integer;
begin
sum:=0;
for i:=1 to n do
begin
read(A[i]);
if (i mod 2 = 1) then
sum:=sum+A[i];
if (i mod 2 = 1) then
k:=k+1;
end;
sum:=sum/k;
write(sum);
end.
program Ok;
const n = 10;
var
A:array[1..n] of real;
sum:real;
i:integer;
begin
sum:=0;
for i:=1 to n do
begin
read(A[i]);
sum:=sum+A[i];
end;
sum:=sum/n;
for i:=1 to n do
begin
if(A[i]lt;sum) then
writeln(A[i]);
end;
end.
2)
program Ok;
const n = 10;
varA:array[1..n] of real;
sum:real;
i,k:integer;
begin
sum:=0;
for i:=1 to n do
begin
read(A[i]);
if (i mod 2 = 1) then
sum:=sum+A[i];
if (i mod 2 = 1) then
k:=k+1;
end;
sum:=sum/k;
write(sum);
end.
//Pascal
//1)
var
A: array [1..8] of integer;
i: byte;
sum: integer;
Arifm: real;
begin
writeln(Заполнение массива.);
sum := 0;
for i := 1 to 8 do
begin
write(A[,i,] = );
readln(A[i]);
sum := sum + A[i];
end;
Arifm := sum/8;
writeln(Среднее арифметическое всех элементов = , Arifm);
writeln;
writeln(Элементы меньше среднего арифметического.);
for i := 1 to 8 do
if A[i] lt; Arifm then
write(A[i]:4);
writeln; readln;
end.
//2)
var
A: array [1..8] of integer;
i: byte;
sum: integer;
Arifm: real;
begin
writeln(Заполнение массива.);
sum := 0;
for i := 1 to 8 do
begin
write(A[,i,] = );
readln(A[i]);
if i mod 2 lt;gt; 0 then
sum := sum + A[i];
end;
Arifm := sum/4;
writeln(Среднее арифметическое элементов с нечетн. индексами = , Arifm);
readln;
end.
//1)
var
A: array [1..8] of integer;
i: byte;
sum: integer;
Arifm: real;
begin
writeln(Заполнение массива.);
sum := 0;
for i := 1 to 8 do
begin
write(A[,i,] = );
readln(A[i]);
sum := sum + A[i];
end;
Arifm := sum/8;
writeln(Среднее арифметическое всех элементов = , Arifm);
writeln;
writeln(Элементы меньше среднего арифметического.);
for i := 1 to 8 do
if A[i] lt; Arifm then
write(A[i]:4);
writeln; readln;
end.
//2)
var
A: array [1..8] of integer;
i: byte;
sum: integer;
Arifm: real;
begin
writeln(Заполнение массива.);
sum := 0;
for i := 1 to 8 do
begin
write(A[,i,] = );
readln(A[i]);
if i mod 2 lt;gt; 0 then
sum := sum + A[i];
end;
Arifm := sum/4;
writeln(Среднее арифметическое элементов с нечетн. индексами = , Arifm);
readln;
end.
230
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Balatav
Информатика:
1)А=362
2)А=111000
3)А=111000+1010
4)А=1011*1101
5)А=110(2), В=1010(2)
...
2019-01-22 12:57:48
Seemupan
Разгадайте ребус Подскажите срочно пожалуйста
...
2019-01-22 12:57:44
Астерий
Придумайте два - три предложения по следующей схеме: Схема ...
2019-01-22 12:56:38
Фёдор
2019-01-22 12:56:24