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

Количество элементов массива, больших 5 и меньших 12

19.11.2012, 21:35. Показов 1465. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
дан двумерный массив. найдите количество элементов массива больших 5 и меньших 12.
(в дэлфи)
помогите пожалуйста
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.11.2012, 21:35
Ответы с готовыми решениями:

Определите количество элементов массива больших 0,5 и меньших 1
Табулирование функции.

Массивы: вычислить сумму и количество элементов, больших b и меньших а
Дан массив x = (12.37, 16.55, 2.43, 0.81, 0.32, 1.345, -12.18, 0.15, -4.314, 1.29, 54.38, 0.214,...

Найти произведение и количество его элементов меньших 3 или больших 30
Дан одномерный массив состоящий из m элементов. Найти произведение и количество его элементов...

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

4
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
19.11.2012, 21:39 2
Dima199x, здесь раздел Паскаль
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Var
  x: Array[1..10,1..10] of Integer;
  i,j,n,m,k: Integer;
BEGIN
Writeln('Введите размер матрицы: ');
Readln(n,m);
Randomize;
For i:=1 to n do
begin
  For j:=1 to m do
  begin
    x[i,j]:=Random(51)-25;
    If (x[i,j]>5) and (x[i,j]<12) Then
    k:=k+1;
    Write(x[i,j]:4);
  end;
  Writeln
end;
Writeln('Количество = ',k);
Readln
END.
Хотя, в принципе, и в Делфи должно работать
1
Almiqui
19.11.2012, 21:41
  #3
 Комментарий модератора 
Тема перемещена из Паскаль в Делфи.
0
0 / 0 / 0
Регистрация: 19.11.2012
Сообщений: 6
19.11.2012, 22:26  [ТС] 4
сделайте в дэлфи пожалуйста
0
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
19.11.2012, 22:40 5
Delphi
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
program Project2;
 
{$APPTYPE CONSOLE}
 
 
Var
  x: Array[1..10,1..10] of Integer;
  i,j,n,m,k: Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
Writeln('Vvedite razmer matrici: ');
Readln(n,m);
Randomize;
For i:=1 to n do
begin
  For j:=1 to m do
  begin
    x[i,j]:=Random(51)-25;
    If (x[i,j]>5) and (x[i,j]<12) Then
    k:=k+1;
    Write(x[i,j]:4);
  end;
  Writeln
end;
Writeln('Kolichestvo = ',k);
Readln
end.
0
19.11.2012, 22:40
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2012, 22:40
Помогаю со студенческими работами здесь

Для матрицы подсчитать количество элементов, меньших нуля, ровных нулю и больших нуля
Для заданной матрицы A подсчитать количество элементов, меньших нуля, ровных нулю и больших нуля....

Вычислить количество и произведение элементов меньших среднего арифметического первых 2 элементов массива
помогите решить задачки,плиииз:wall: дан одномерный массив b1,b2,....,bn.Вычислить колличество и...

Найти количество элементов массива, меньших заданного числа В, и произведение всех элементов
19. В массиве X(N) найти количество элементов массива, меньших заданного числа В, и произведение...

Цикл: определить количество элементов массива, меньших 4
Дан массив А(5). Определить количество элементов, меньших 4.


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

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

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