0 / 0 / 0
Регистрация: 19.02.2017
Сообщений: 3
1

Вычислить среднее арифметическое значение квадратов положительных элементов массива

12.06.2017, 19:18. Показов 3378. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
В одномерном массиве случайных чисел в диапазоне от -30 до +60 вычислить среднее арифметическое значение квадратов положительных элементов.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.06.2017, 19:18
Ответы с готовыми решениями:

Вычислить и вывести на экран среднее арифметическое значение квадратов положительных элементов
Задание первые я выполнил, работает отлично программа, теперь нужно сделать еще одно задание оно...

Вычислить и вывести на экран среднее арифметическое значение квадратов положительных элементов. 7 элемент.(вещ
Помогите НАПИСАТЬ ПРОГРАММУ В Borland Pascal пожалуйста!!!!!

Вычислить среднее арифметическое положительных элементов массива
Дан массив,в котором есть отрицательные,положительные и нулевые значения.Вычеслить...

Вычислить среднее арифметическое положительных элементов массива
Задача № 55 Задан массив А(N). 1. Переписать в массив Т сначала положительные элементы массива А,...

3
0 / 0 / 0
Регистрация: 12.06.2017
Сообщений: 2
12.06.2017, 20:26 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
type 
  s=-30..60;
  t_k=array [1..10] of s; // 10 элементов массива
 
var
  k: t_k;
  sum, n: integer;
  
begin
  n:=0; // счетчик положительных чисел в массиве
  sum:=0;
  for var i:=1 to 10 do  // 10 размер массива
    begin    
      k[i]:=random (90)+1-30; // заполнение массива случайными числами
      print (i,k[i]); writeln;
    end;
  for var j:=1 to 10 do// 10 размер массива
    begin
      if k[j]>0 then 
        begin
          sum:=sum + k[j]*k[j];
          n:=n+1;
        end     
    end;
  writeln (sum/n);
end.
0
0 / 0 / 0
Регистрация: 19.02.2017
Сообщений: 3
12.06.2017, 21:13  [ТС] 3
В 12-ой строчке после var выдается ошибка о том,что ожидался идентификатор
0
Эксперт Pascal/Delphi
6810 / 4567 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
13.06.2017, 11:04 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
type
  s = -30..60;
  t_k = array [1..10] of s;// 10 элементов массива
 
var
  k: t_k;
  i, j, sum, n: integer;
 
begin
  n := 0; // счетчик положительных чисел в массиве
  sum := 0;
  for i := 1 to 10 do  // 10 размер массива
  begin
    k[i] := random(90) + 1 - 30; // заполнение массива случайными числами
    write(i, k[i]:8);
    writeln;
  end;
  for j := 1 to 10 do// 10 размер массива
  begin
    if k[j] > 0 then 
    begin
      sum := sum + k[j] * k[j];
      n := n + 1;
    end
  end;
  writeln(sum / n);
end.
0
13.06.2017, 11:04
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.06.2017, 11:04
Помогаю со студенческими работами здесь

Вычислить среднее арифметическое положительных элементов массива
вычислить среднее арифметическое положительных элементов для массивов A(N1),B(N2),C(N3), если...

Вычислить среднее арифметическое положительных элементов массива Y(10), имеющих нечетные индексы
Вычислить среднее арифметическое положительных элементов массива Y(10), имеющих нечетные индексы....

Вычислить среднее арифметическое значение элементов массива А(80)
Вычислить среднее арифметическое значение элементов массива А(80). а>0

Найти среднее арифметическое положительных и среднее арифметическое отрицательных элементов массива.
Дан массив вещественных чисел А(А1,А2,…,Аn). Найти среднее арифметическое положительных и среднее...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru