Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal графика,круги Подскажите плиз,как в графике нарисовать круги рандомом разного радиуса чтобы они не пересекались по линиям,но к примеру круг в круге может быть. https://www.cyberforum.ru/ pascal/ thread117420.html Использовать PROCEDURE Pascal
Даны три массива: {Сk}, k= 1…k1; {Fk}, k=1…k2; {Tk}, k=1…k3; K1, k2, k3 – целые числа,не превышающие 15,30 и 25 соответственно. Выбрать из каждого массива элементы, удовлетворяющие условию: 1< ׀элемент<2,5 и записать их в порядке убывания соответственно в массивы: {AJ}, {Bn}, { Cm}.
Pascal сделать программу https://www.cyberforum.ru/ pascal/ thread117415.html
Для каждого из массивов: C={C}, i=1..N, j=1..k=1; D={D}, i=1..N, j=1..k=2; Z={Z}, i=1..N, j=1..k=3 вычислить сумму и количество отрицательных элементов , стоящих на чётных местах во 2-ом столбце. N1, K1, N2, K2, N3, K3 - целые, не больше 10, 15, 20, 9, 16 и 20 соответственно. Результаты получить отдельно для каждого массива. Использовать PROCEDURE.
Pascal Составить блок схему к готовому коду https://www.cyberforum.ru/ pascal/ thread117411.html
program tmp; uses crt; const count=40; type arr=array of integer; var m,n:integer; V,F:arr; procedure inputmas(x:integer; var mas:arr); var i:integer; begin
Pascal Вычислить таблицу значений функции "И" и параметров x,y
Помогите пожалуйста, кто рубит суть в таких темах
Pascal Вычислить тремя видами (if , for , while)уравнение: (1-sin(0.1))+(1+sin(0.2))+...+(1+sin(1)) https://www.cyberforum.ru/ pascal/ thread117403.html
Вычислить тремя видами (if , for , while) уравнение: (1-sin(0.1))+(1+sin(0.2))+...+(1+sin(1)). Очень прошу , помогите кто сможет ...
Pascal загрузка матрицы из файла Создать программный комплекс, реализующий ввод данных из файла, просмотр входных и выходных данных. Программа запрашивает имя файла. Программа заполняет две целочисленные матрицы A(mxn) и B(nxk) компонентами типизированного файла, если это возможно. Программа выводит на экран обе матрицы в виде таблицы, находит матрицу C=A+B и выводит матрицу С на экран в виде таблицы. https://www.cyberforum.ru/ pascal/ thread117394.html Pascal Ввести строку символов.Проверить....
Ввести строку символов.Проветить,изменится ли смысл написанного при обратном прочтении данной строки и выдать соответствующее сообщение. С блок-схемой,плиз
Pascal какая из цифр находится в числе правее? https://www.cyberforum.ru/ pascal/ thread117391.html
Задача на while. Дано натуральное число,в котором все цифры различны.Если в нем есть цифры a и b(цифры введены с клавиатуры изначально) то какая из них находится в числе правее? Добавлено через 28 минут Помогите хоть кто-нибудь пожалуйста
Pascal ПУСТЬ это текстовый файл, который содержит НЕСКОЛЬКО ЦЕЛЫХ ЧИСЕЛ. ОТКРЫТЬ этот текстовый файл и КАЖДЫЙ С ЧИСЕЛ вознести В КУБ. ПУСТЬ это текстовый файл, который содержит НЕСКОЛЬКО ЦЕЛЫХ ЧИСЕЛ. ОТКРЫТЬ этот текстовый файл и КАЖДЫЙ С ЧИСЕЛ вознести В КУБ. https://www.cyberforum.ru/ pascal/ thread117390.html
Pascal Упорядочить по возрастанию массив действительных чисел
1 Дано Натуральное трехзначное число. Определить, цифры этого числа (K,L,M) и выяснить, можно ли построить прямоугольный треугольник (со) -неуверена что тут так написано ;-) сторонами 2 Найти сумму нечетнытных элементов массива меньше K m 2 3 3 (1+X) =1+mx+m(m-1) *x + m(m-1)(m-2) *x +......... условие |x|<1,m>0 2! 3! 4 Упорядочить по возрастанию массив действительных чисел...
Pascal Найти среди точек пару наиболее удаленных друг от друга https://www.cyberforum.ru/ pascal/ thread117383.html
Даны n точек плоскости (x1,y2),...(xn,yn). Найти среди них пару наиболее удаленных друг от друга. ну хоть кто нибудь подскажите как это делать!!!!! плизз
ЧакЭ одобряЭ
285 / 284 / 86
Регистрация: 27.12.2009
Сообщений: 1,767
15.04.2010, 23:54 0

Для каждого массива вычислить среднее арифметическое и количество элементов - Pascal - Ответ 664303

15.04.2010, 23:54. Показов 3041. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Юля// как решение

Решение

номер 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
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
uses
  crt;
 
 
 
procedure number2(j: integer);
var
  a: array[1..100] of integer;
  i, m, k: integer;
  sr: real;
 
 
begin
  randomize;
  repeat
   writeln('размерность массива');
    readln(m);
  until m in [2..100];
  for i := 1 to m do 
  begin
    a[i] := random(20) - 5;
  end;
  writeln('массив', ' ', j);
  for i := 1 to m do 
  begin
    write(a[i], ' ');
  end;
  for i := 1 to m do 
  begin
    sr := sr + a[i];
  end;
  sr := sr / m;
  for i := 1 to m do 
  begin
    if a[i] <= sr then begin
      inc(k);
    end;
  end;
  readln;
  writeln('среднее арифм', ' ', sr:2);
  writeln('количество элементов', ' ', k);
end;
 
var
  j: integer;
 
begin
  for j := 1 to 4 do 
  begin
    number2(j);
  end;
  readln;
end.
номер 1
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
uses
  crt;
 
 
 
procedure maxi(j:integer);
var
  a: array[1..100] of integer;
  i, m, k, max: integer;
 
begin
  randomize;
  repeat
   writeln('размерность массива');
    readln(m);
  until m in [2..15];
  for i := 1 to m do 
  begin
    a[i] := random(20) - 5;
  end;
  writeln('массив',' ',j);
  for i := 1 to m do 
  begin
    write(a[i], ' ');
  end;
  max := a[1];
  for i := 1 to m do 
  begin
    if a[i + 1] > max then begin
      max := a[i + 1];
    end;
    if a[i] < 0 then 
    begin
      k:=k+sqr(a[i]);
    end;
  end;
  readln;
  writeln('максамиальный элемент', ' ', max);
  writeln('сумма квадратов отрицательных', ' ', k);
end;
 
var
  j: integer;
 
begin
  for j := 1 to 3 do 
  begin
    maxi(j);
  end;
  readln;
end.


Вернуться к обсуждению:
Для каждого массива вычислить среднее арифметическое и количество элементов Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.04.2010, 23:54
Готовые ответы и решения:

Вычислить среднее арифметическое элементов массива Y и отклонение от среднего для каждого элемента
буду очень признательна если поможете с решением) дан массив Y(14) вычислить среднее...

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

При помощи функции вычислить среднее арифметическое элементов каждого массива
1.Ввести три массива X, Y, Z. При помощи функции вычислить среднее арифметическое элементов каждого...

Для каждого столбца массива найти среднее арифметическое элементов
Помогите составить условие в двумерном динамическом массиве for i:=0 to n-1 do begin for...

1
15.04.2010, 23:54
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.04.2010, 23:54
Помогаю со студенческими работами здесь

Вычислить среднее арифметическое и количество отрицательных элементов массива
Задача №1 Дан массив размера N. Вычислить среднее арифметическое и кол – во отрицательных...

Вычислить среднее арифметическое значение и количество элементов массива
Составить программу решения задачи, используя оператор цикла FOR. Значения элементов массива ввести...

Для каждого массива в диалоге ввести размер массива и элементы массива и найти сумму и среднее арифметическое значение для каждого массива
даны 3 различных массива целых чисел(размер каждого не должен превышать 15). Для каждого массива в...

Найти среднее арифметическое элементов для каждого из столбцов массива, имеющих четные номера
помогите пожалуйста ооч надо Пусть дано натуральное число n и вещественная матрица размером n*9....

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

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

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