Регистрация
katemcgrat
26.12.2021 03:18
Информатика
Есть ответ 👍

Скодом на языке c(си). найти среднее арифметическое элементов массива

224
312
Посмотреть ответы 2

Ответы на вопрос:

katrin05069
katrin05069
4,8(57 оценок)
Двойным циклом считаешь сумму всех элементов, потом делишь на произведение количества строк на количество сволбцов
chinyakova97p02efn
chinyakova97p02efn
4,6(34 оценок)

во всех программах у меня будет использоваться процедура swap:

 

procedure swap(a: ^real; b: ^real); var    t: real; begin    t : = a^;     a^ : = b^;     b^ : = t; end;

 

swap(x,y) - меняет местами значения x и y.

 

1.

var    a: array[1..100] of real;     i, j, n: integer;

begin

    readln(n);     for i : = 1 to n do      read(a[i]);     for j : = 1 to (n div 2) - 1 do      for i : = 1 to (n div 2) - j do          swap(a[i], a[i + 1]);     for j : = 1 to (n div 2) - 1 do      for i : = (n div 2) + 1 to n - j do          swap(a[i], a[i + 1]);     for i : = 1 to n do      writeln(a[i])end.

 

2.

var    a: array[1..100] of real;     i, n: integer;

begin

    readln(n);     for i : = 1 to n do      read(a[i]);     for i : = 1 to n - 1 do      swap(a[i], a[i + 1]);     for i : = 1 to n do      writeln(a[i])end.

 

3.

var

    a: array[1..100] of real;     i, n: integer;

begin

    readln(n);     for i : = 1 to n do      read(a[i]);     for i : = n downto 2 do        swap(a[i], a[i - 1]);     for i : = 1 to n do      writeln(a[i])end.

Популярно: Информатика