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

Для каждого массива вычислить: значение максимального элемента, количество отрицательных элементов

15.04.2010, 09:03. Показов 1457. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Заданы 4 одномерных массива A,B,C,D. Количество элементов каждого массива не превышает 60. Для каждого массива вычислить:
-значение максимального элемента
-количество отрицательных элементов.
Использовать под-программу-процедуру
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.04.2010, 09:03
Ответы с готовыми решениями:

Для каждого массива вычислить значение максимального элемента
Заданы 4 одномерных массива A,B,C,D.Количество элементов каждого массива не превышает 60. Для...

Вычислить номер максимального элемента массива, сумму отрицательных элементов
В одномерном массиве , состоящем из n вещественных элементов , вычислить: 1) Номер максимального...

Подсчитать количество отрицательных элементов, и изменить значение каждого положительного элемента
Подсчитать, сколько среди заданных элементов Х1, Х2,...,Хn отрицательных, и изменить значение...

Вычислить значение функции для отрицательных элементов массива и подсчитать их количество
Помогите решить задачу. Дано одномерный массив Р, состоящий из 32 элементов. Вычислить значение...

7
541 / 446 / 162
Регистрация: 10.12.2009
Сообщений: 1,857
15.04.2010, 12:43 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
type mas=array[1..60] of integer;
procedure XXX(const a:mas; var max,neg:integer);
var i,N:integer;
begin
write('размерность массива: ');
readln(N);
for i:=1 to N do
readln(a[i]); {вводим массив}
 
max:=-MaxInt; {в качестве max берем минимальное значение integer}
for i:=1 to N do
if a[i]>max then max:=a[i];
 
neg:=0;
for i:=1 to N do
if a[i]<0 then inc(neg); {если число меньше нуля, увеличиваем счетчик}
 
end;
begin
//==================
XXX(A,max,neg);
1
0 / 0 / 0
Регистрация: 14.04.2010
Сообщений: 25
20.04.2010, 23:27  [ТС] 3
Заданы 4 одномерных массива A,B,C,D. КОЛИЧЕСТВО ЭЛЕМЕНТОВ КАЖДОГО МАССИВА НЕ ПРЕВЫШАЕТ 60.
Для каждого массива вычислить:
значение максимального элемента;
количество отрицательных элементов.
Использовать подпрограмму-процедуру
0
1915 / 1065 / 384
Регистрация: 06.12.2008
Сообщений: 2,802
20.04.2010, 23:32 4
вот процедура для одного массива, также делайте и для всех остальных...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
................
procedure MassA;
var i,max,k:integer;
begin
k:=0;
max:=a[1];
for i:=1 to n do 
 begin
  if a[i]<0 then  
   inc(k);
  if a[i]>max then 
   max:=a[i];
 end;
Writeln('Kol-vo ',k);
Writeln('Max ',max);
end;
................
1
5 / 5 / 3
Регистрация: 09.12.2009
Сообщений: 42
21.04.2010, 23:43 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
PROCEDURE GetMax(a : arr; const m: integer);
var max,i : integer;
begin
max :=a[1];
for i:= 2 to m do
if a[i]>max then max := a[i];
WriteLn(max);
end;
 
PROCEDURE GetNegativ(a: arr; const m: integer);
var count, i: integer;
begin
count := 0;
for i := 1 to m do
if a[i]<0 then Inc(count);
WriteLn(count);
end;
0
105 / 102 / 89
Регистрация: 18.05.2009
Сообщений: 201
28.04.2010, 19:35 6
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
program zad;
uses crt;
type m=array[1..60] of integer;
 
 
procedure vvod;
var
mas:array[1..60] of integer;
j,max,kol:integer;
begin
  randomize;
  textcolor(3);
  for j:=1 to 60 do
  begin
    mas[j]:=random(101)-50;
    write(mas[j]:4);
  end;
  max:=mas[1];
  for j:=1 to 60 do
  begin
    if mas[j]>=max then max:=mas[j];
  end;
  kol:=0;
  for j:=1 to 60 do
  begin
    if mas[j]<0 then kol:=kol+1;
  end;
 
  writeln('максимальный элемент равен ',max);
  writeln('колличество отрицательных элементов равно ',kol);
  textcolor(15);
  writeln('нажмите ENTER ');
  readln;
end;
 
begin
  clrscr;
  textcolor(10);
  writeln('массив a ');
  vvod;
  textcolor(10);
  writeln('массив b ');
  vvod;
  textcolor(10);
  writeln('массив c ');
  vvod;
  textcolor(10);
  writeln('массив d ');
  vvod;
 
 
end.
1
0 / 0 / 0
Регистрация: 14.04.2010
Сообщений: 25
28.04.2010, 20:31  [ТС] 7
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
program zad;
uses crt;
type m=array[1..60] of integer;
 
 
procedure vvod;
var
mas:array[1..60] of integer;
j,max,kol:integer;
begin
  randomize;
  textcolor(3);
  for j:=1 to 60 do
  begin
    mas[j]:=random(101)-50;
    write(mas[j]:4);
  end;
  max:=mas[1];
  for j:=1 to 60 do
  begin
    if mas[j]>=max then max:=mas[j];
  end;
  kol:=0;
  for j:=1 to 60 do
  begin
    if mas[j]<0 then kol:=kol+1;
  end;
 
  writeln('максимальный элемент равен ',max);
  writeln('колличество отрицательных элементов равно ',kol);
  textcolor(15);
  writeln('нажмите ENTER ');
  readln;
end;
0
740 / 84 / 7
Регистрация: 06.12.2009
Сообщений: 342
30.04.2010, 09:31 8
в прицепе построил тебе блок-схемы
Миниатюры
Для каждого массива вычислить: значение максимального элемента, количество отрицательных элементов  
Вложения
Тип файла: doc noName.pas.xls.doc (33.5 Кб, 12 просмотров)
Тип файла: xls noName.pas.xls (25.0 Кб, 20 просмотров)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.04.2010, 09:31
Помогаю со студенческими работами здесь

Вычислить значение функции для отрицательных элементов массива и подсчитать их количество
дан одномерный массив P, который состоит из 32 элементов. вычислить значение функции для...

Вычислить сумму отрицательных элементов, расположенных после максимального элемента массива
ПОМОГИТЕ СТУДЕНТУ!!!! ______________________ Вычислить сумму отрицательных элементов,...

Одномерный массив. Вычислить значение функции для отрицательных элементов массива и подсчитать их количество
Дано одномерный массив Р состоящий из 32 элементов. Вычислить значение функции для отрицательных...

Вычислить количество элементов массива в диапазоне и сумму после максимального элемента
В одномерном массиве, состоящем из n вещественных элементов, вычислить: - количество элементов...


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

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

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