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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Что такое «приватность» и причем тут «персональные данные»?
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.