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.
Т.к. язык программирования не указан, сделаю на свой вкус, т.е. C++. При копировании кода из IDE на сайт автоматически удаляется перенос строки. Будет прикреплен скриншот того, как должен выглядеть код
#include <stdlib.h>#include <stdio.h>#include <locale.h> void main(){ setlocale(LC_ALL, "RUSSIAN"); int a[11], i, w, t; w = 0; t = 0; srand(8120); for (i = 1; i <= 10; i++) a[i] = rand() % 10 + 1; for (i = 1; i <= 10; i++) printf("%2d ", a[i]); for (i = 1; i <= 10; i++) if ((a[i] % 2 == 0) && (a[i] > 6) && (a[i] > 0)) { w = w + a[i]; t++; } printf("\n Ср. арифметическое пложительных четных элементов, которые больше 6: %d", w/t); printf("\n\n"); system("pause");}
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.