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

Определить, в каком массиве больше отрицательных элементов

15.04.2012, 13:48. Показов 1204. Ответов 1
Метки нет (Все метки)

заданы массивы a(7) b(4) c(9) состоящие из положетельных и отрицательных чисел. Определить, в каком массиве больше отрицательных элементов. Подсчет количества отрицательных элементов оформить в виде подпрограммы. Заполнение массивов и вывод на печать оформить в виде подпрограммы.
Решите плиз
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.04.2012, 13:48
Ответы с готовыми решениями:

Заданы три массива. Определить, в каком массиве больше отрицательных элементов
Заданы массивы А(7),В(4),С(9),состоящие из положительных и отрицательных чисел.Определить,в каком...

Определить, в каком столбце пассива, первом или последнем, больше отрицательных элементов
Дан двумерный массив.Сравнить в каком столбце в первом или последнем больше отрицательных элементов

Массивы. Определить, в каком массиве больше сумма элементов
пользователь последовательно вводит два массива целых чисел по три элемента в каждом.программа...

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

__________________
1
Mobile Software Engineer
Эксперт С++
5358 / 1577 / 956
Регистрация: 23.01.2011
Сообщений: 3,211
15.04.2012, 14:00 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
const
  n = 9;
type
  TArr = Array[1..n] of Integer;
var
  ArrA, ArrB, ArrC: TArr;
 
procedure Generation_PrintArray(var Arr: TArr; n: Byte; Chr: Char);
var
  i: Byte;
begin
  Randomize;
  writeln('Массив ', Chr, ': ');
  for i:=1 to n do
  begin
    Arr[i]:=Random(20)-10;
    write(Arr[i], ' ');
  end;
  writeln;
end;
 
function NegativeCount(Arr: TArr; n: Byte): Byte;
var
  Count, i: Byte;
begin
  Count:=0;
  for i:=1 to n do
    if Arr[i] < 0 then Inc(Count);
  NegativeCount:=Count;
end;
 
begin
  Generation_PrintArray(ArrA, 7, 'A');
  writeln('Отрицательных: ', NegativeCount(ArrA, 7));
  Generation_PrintArray(ArrB, 4, 'B');
  writeln('Отрицательных: ', NegativeCount(ArrB, 4));
  Generation_PrintArray(ArrC, n, 'C');
  writeln('Отрицательных: ', NegativeCount(ArrC, n));
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.04.2012, 14:00

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

Определить в каком из одномерных массивов больше отрицательных элементов
даны два Одномерных массива. Определить в каком из них больше отрицательных элементов . Для поиска...

Определить, есть ли в данном массиве столбец, содержащий больше отрицательных элементов, чем положительных
Дан двумерный массив А(4,5), заполненный с помощью ГСЧ. Определить, есть ли в данном массиве...

Определить, есть ли в данном массиве строка, содержащая больше положительных элементов, чем отрицательных
Дан двумерный массив размером n*m, заполненный целыми числами с клавиатуры. Определить, есть ли в...

Определить, есть ли в данном массиве строка, содержащая больше положительных элементов, чем отрицательных
Дан двумерный массив размером n x m, заполненный случайными числами. Определить, есть ли в данном...

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

Определить, в каком из файлов больше положительных, отрицательных и нулевых
даны два файла вещественных чисел определить в каком из них больше положителтных отрицательных и...


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

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

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