nord248
?>

Что такое «приватность» и причем тут «персональные данные»?

Информатика

Ответы

tyrenumberone

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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Что такое «приватность» и причем тут «персональные данные»?
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

МуратМарина1140
monolit-kolomna
tatur-642789
Vika-simonenko
perfectorg
Алексей Шуклин
ecogoi
Rjkjneirbyf555
nataliarogacheva
frolevgevg6420
Конычева-музей"260
yliana
mtcover
khar4550
lena260980