1. Дан одноименный массив А. Определить среднее арифметическое положительных и четных элементов больших 6.
2. Дан одноименный массив размером N. Получить значение следующего выражения: макс*2/Nмакс (удвоенное значение максимального элемента поделить на его порядковый номер).
Ответы
Ответ дал:
0
1)
var
n, i, c, sum, sum2, c2: integer;
a: array of integer;
begin
sum := 0;
sum2 := 0;
c2 := 0;
c := 0;
readln(n);
setlength(a, n);
for i := 0 to n - 1 do
begin
read(a[i]);
if(a[i] > 0) and (a[i] > 6) then
begin
sum := sum + a[i];
c := c + 1;
end;
if(a[i] mod 2 = 0) and (a[i] > 6) then
begin
sum2 := sum2 + a[i];
c2 := c2 + 1;
end;
end;
writeln(sum / c);
write(sum2 / c2);
end.
2)
var
n, i, max, im: integer;
a: array of integer;
begin
im := 1;
readln(n);
setlength(a, n);
for i := 0 to n - 1 do
begin
read(a[i]); if(i = 1) then max := a[0];
if(a[i] > max) then
begin
max := a[i];
im := i + 1;
end;
end;
write((max * 2) / im);
end.
var
n, i, c, sum, sum2, c2: integer;
a: array of integer;
begin
sum := 0;
sum2 := 0;
c2 := 0;
c := 0;
readln(n);
setlength(a, n);
for i := 0 to n - 1 do
begin
read(a[i]);
if(a[i] > 0) and (a[i] > 6) then
begin
sum := sum + a[i];
c := c + 1;
end;
if(a[i] mod 2 = 0) and (a[i] > 6) then
begin
sum2 := sum2 + a[i];
c2 := c2 + 1;
end;
end;
writeln(sum / c);
write(sum2 / c2);
end.
2)
var
n, i, max, im: integer;
a: array of integer;
begin
im := 1;
readln(n);
setlength(a, n);
for i := 0 to n - 1 do
begin
read(a[i]); if(i = 1) then max := a[0];
if(a[i] > max) then
begin
max := a[i];
im := i + 1;
end;
end;
write((max * 2) / im);
end.
Ответ дал:
0
в первой задаче однозначно что-то идет не так
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад