Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 14.06.2012
Сообщений: 9
1

Задача по массивам

13.01.2014, 21:38. Показов 993. Ответов 2
Метки нет (Все метки)

В массивах А, В и С каждый элемент разделить на среднее арифметическое элементов массива.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.01.2014, 21:38
Ответы с готовыми решениями:

задача по массивам
заданы массивы A1(6),A2(7),A3,A4(6). Определить, какие из них упорядочены по возрастанию....

Задача по массивам
Вот одна задачка 1: Исходный массив упорядочен по возрастанию Ввести число К и вставить его в...

Задача по массивам (матрица).
1) Задание: Составить схему алгоритма и программу решения задачи обработки двумерного массива....

Задача по одномерным массивам
Задайте массив из 10 элементов с помощью датчика случайных чисел. Вычислите сумму произведений всех...

__________________
2
350 / 343 / 279
Регистрация: 21.05.2013
Сообщений: 1,312
13.01.2014, 21:56 2
Лучший ответ Сообщение было отмечено quent1n как решение

Решение

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
program quent1n ;
{$APPTYPE CONSOLE}
uses SysUtils;
var mas:array of Real;
    i,n:Integer;
    q:real;
begin
  Randomize;
  Write('Enter size of array = ');readln(n);
  SetLength(mas,n);
  Write('Array A [start] = ');q:=0;
  for i:=1 to n do
    begin
      mas[i]:=Random(10);q:=q+mas[i];
      Write(mas[i]:0:2,' ');
    end;
   q:=q/n;
  Writeln('[',q:0:2,']');
  Write('Array A [finish] = ');
  for i:=1 to n do
    begin
      Write((mas[i]/q):0:2,' ');
    end;
  writeln;
  Write('Array B [start] = ');q:=0;
  for i:=1 to n do
    begin
      mas[i]:=Random(10);q:=q+mas[i];
      Write(mas[i]:0:2,' ');
    end;
   q:=q/n;
  Writeln('[',q:0:2,']');
  Write('Array B [finish] = ');
  for i:=1 to n do
    begin
      Write((mas[i]/q):0:2,' ');
    end;
  writeln;
  Write('Array C [start] = ');q:=0;
  for i:=1 to n do
    begin
      mas[i]:=Random(10);q:=q+mas[i];
      Write(mas[i]:0:2,' ');
    end;
   q:=q/n;
  Writeln('[',q:0:2,']');
  Write('Array C [finish] = ');
  for i:=1 to n do
    begin
      Write((mas[i]/q):0:2,' ');
    end;
readln;
end.
1
0 / 0 / 0
Регистрация: 14.06.2012
Сообщений: 9
13.01.2014, 22:02  [ТС] 3
Благодарю
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.01.2014, 22:02

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Задача по массивам на нахождение среднедневной температуры
Помогите пожалуйста решить задачу: В массиве Т(31) среднедневная температура в мае. Распечатать...

Задача по массивам. Найти строку с минимальной суммой и поставить ее на место первой строки
Дана матрица размерностью NxM. Найти строку с минимальной суммой и поставить ее на место первой...

Задача по массивам. Определите, что будет напечатано в результате работы следующего фрагмента программы
Определите,что будет напечатано в результате работы следующего фрагмента программы: var k, s:...

Задача по массивам. Определите,что будет напечатано в результате работы следующего фрагмента программы
Определите,что будет напечатано в результате работы следующего фрагмента программы: var k, s:...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.