Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/11: Рейтинг темы: голосов - 11, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 17.09.2015
Сообщений: 27
1

Подсчитать в массивах количество элементов, больших значения t

01.10.2015, 09:02. Просмотров 2042. Ответов 2
Метки нет (Все метки)


1. Заданы два массива A(N) и B(M). Подсчитать в них количество элементов, больших значения t и первым на печать вывести массив, имеющий наименьшее их количество. Значение t вводит пользователь.
2. Задан массив вещественных чисел A[N,N].. Необходимо каждый элемент массива разделить на среднее арифметическое элементов массива. На печать вывести исходный и преобразованный массивы.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.10.2015, 09:02
Ответы с готовыми решениями:

Найти количество элементов в массивах О(16) и М(12), кратных 4 и не больших заданного числа А.
Привет, народ! Хэлп ми, плиз) Найти количество элементов в массивах О(16) и М(12), кратных 4 и не...

В массиве из 10 чисел подсчитать количество элементов больших трех
В массиве из 10 чисел подсчитать количество элементов больших трех Решить через Мссив если будет...

В массиве из 10 чисел подсчитать количество элементов больших n и меньших m.
В массиве из 10 чисел подсчитать количество элементов, больших n и меньших m (параметры m и n...

Подсчитать количество и произведение элементов массива, больших 20 и меньших 50
Массив целых чисел из 10 элементов заполнить случайным образом. Подсчитать количество и...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
2
13 / 13 / 18
Регистрация: 08.01.2015
Сообщений: 53
01.10.2015, 09:36 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
var
  a, b: array[1..100] of integer;
  M, N, t, kola, kolb, i: integer;
 
begin
  //заполнение массива
  writeln('введите t');
  readln(t);
  writeln('введите сколько элементов в a');
  readln(N);
  for i := 1 to N do 
  begin
    writeln('введите ', i, '-ый элемент');
    readln(a[i]);
    if a[i] > t then kola := kola + 1;
  end;
  writeln('введите сколько элементов в b');
  readln(M);
  for i := 1 to M do 
  begin
    writeln('введите ', i, '-ый элемент');
    readln(b[i]);
    if b[i] > t then kolb := kolb + 1;
  end;
  if kola < kolb then begin for i := 1 to N do write(a[i], ' ');writeln;for i := 1 to M do write(b[i], ' '); end 
  else begin for i := 1 to M do write(b[i], ' ');writeln;for i := 1 to N do write(a[i], ' ') end;
end.
Добавлено через 11 минут
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
var
  a: array[1..100, 1..100] of real;
  i, n, j: integer;
  sr, sum: real;
 
begin
  //ввод данных
  writeln('введите N');
  readln(n);
  for i := 1 to n do
    for j := 1 to n do 
    begin
      writeln('введите ', i, ' ', j, ' элемент');
      readln(a[i][j]);
      sum := sum + a[i][j];
    end;
  //считаем ср. ар.
  sr := sum / (n * 2);
  writeln('исходный массив:');
  for i := 1 to n do
    for j := 1 to n do
      write(a[i][j], ' ');
  writeln('преобразованный массив');
  for i := 1 to n do
    for j := 1 to n do
      write(a[i][j] / sr, ' ');
end.
0
Эксперт Pascal/Delphi
6583 / 4433 / 4722
Регистрация: 05.06.2014
Сообщений: 21,768
01.10.2015, 09:51 3
djohnny_z, в дальнейшем постарайтесь не нарушать правила форума. Создавайте для каждой задачи отдельную тему и давайте своим темам осмысленные названия.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.10.2015, 09:51

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

Подсчитать количество чисел больших среднего арифметического положительных элементов массива
В одномерном массиве А подсчитать количество чисел больших среднего арифметического положительных...

В массиве из случайных чисел подсчитать отдельно средние значения элементов, меньших 50, и больших или равных 50
Заполните массив случайными числами в диапазоне от 0 до 100 и подсчитайте отдельно среднее значение...

Подсчитать общее количество чисел, меньших заданного А, больших В среди элементов ниже побочной диагонали.
Составить графическую схему алгоритма и написать программу с организацией ввода-вывода с помощью...

Подсчитать количество элементов, больших заданных А
Подсчитать количество элементов, больших заданных А и стоящих в строках с нечетными номерами.


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

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

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