3 года назад

В заданном массиве вычислить среднее арифметическое значение элемента массива. Зарание спасибо))))Составить программу )

1 ответ:

0 0

Const n=10;
var a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51)-25;
write(a[i]:4);
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
writeln('среднее арифметическое элементов массива = ',s/n);
end.

Пример:
Массив A:
4 -25 -8 17 1 15 -23 -13 16 -22
среднее арифметическое элементов массива = -3.8

Читайте также

В некотором каталоге хранился файл днепр.jpg. В этом каталоге создали подкаталог с именем РЕКИ и переместили в него файл днепр.j

Странник191

Е:\ГЕОГРАФИЯ\ФОТО\днепр.jpg

0 0

4 года назад

Объясните пожалуйста задачу: Информационный объём текста, составленного с помощью компьютера, равен 3,5 КБ. Сколько символов сод

дюжене [50]

1 бит = 1 символу
1 байт = 8 бит
1килобайт = 1024 байта
3,5 * 1024= 3584 байта
3584 * 8 = 28672 бит
ответ в тексте 28672 симв

0 0

3 года назад

Прочитать ещё 2 ответа

СРОЧНО!!!! Дана таблица в которой 10 строк и 8 столбцов в этой таблице записаны числа все числа кратные 5 нужно удвоить остальны

Niki979 [24]

Const
m=10;
n=8;
var
a:array[1..m,1..n] of integer;
i,j:integer;
begin
Randomize;
Writeln('Исходный массив');
for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(20)+10;
      Write(a[i,j]:3)
      end;
    Writeln
    end;
Writeln('Результирующий массив');
for i:=1 to m do begin
    for j:=1 to n do begin
      if a[i,j] mod 5=0 then a[i,j]:=2*a[i,j]
      else a[i,j]:=3*a[i,j];
      Write(a[i,j]:3)
      end;
    Writeln
    end
end.

Пример решения
Исходный массив
12 10 12 20 17 17 28 23
22 27 28 14 23 10 26 15
29 13 10 29 26 11 17 24
10 14 17 24 16 12 22 28
17 25 26 24 25 22 17 23
18 11 20 12 28 29 25 13
26 11 28 19 17 27 22 10
22 17 20 12 10 13 17 19
14 10 27 28 13 11 20 16
26 16 21 24 20 15 26 10
Результирующий массив
36 20 36 40 51 51 84 69
66 81 84 42 69 20 78 30
87 39 20 87 78 33 51 72
20 42 51 72 48 36 66 84
51 50 78 72 50 66 51 69
54 33 40 36 84 87 50 39
78 33 84 57 51 81 66 20
66 51 40 36 20 39 51 57
42 20 81 84 39 33 40 48
78 48 63 72 40 30 78 20

0 0

4 года назад

Помогите написать на паскале (Д) Заполнить массив из пятнадцати элементов случайным образом: а) вещественными значениями, лежащ

Гриша Колмогоров

Если нужна программа только под д),то вот:
Program n6;
var a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=random(11);
write(a[i],' ');
end;
<span>end.</span>

0 0

4 года назад

Посчитай, сколько байт информации содержит 8 бит?

Александр В С

Ответ:

1 байт = 8 бит

Объяснение:

0 0

4 года назад