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

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

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

Студворк — интернет-сервис помощи студентам
Заданы 4 одномерных массива A,B,C,D. Количество элементов каждого массива не превышает 60. Для каждого массива вычислить:
-значение максимального элемента
-количество отрицательных элементов.
Использовать под-программу-процедуру
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
15.04.2010, 09:03
Ответы с готовыми решениями:

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

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

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

7
 Аватар для Mиxaил
542 / 447 / 162
Регистрация: 10.12.2009
Сообщений: 1,857
15.04.2010, 12:43
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  [ТС]
Заданы 4 одномерных массива A,B,C,D. КОЛИЧЕСТВО ЭЛЕМЕНТОВ КАЖДОГО МАССИВА НЕ ПРЕВЫШАЕТ 60.
Для каждого массива вычислить:
значение максимального элемента;
количество отрицательных элементов.
Использовать подпрограмму-процедуру
0
1916 / 1066 / 384
Регистрация: 06.12.2008
Сообщений: 2,802
20.04.2010, 23:32
вот процедура для одного массива, также делайте и для всех остальных...
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
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
 Аватар для AI\EKCAH^P
105 / 102 / 89
Регистрация: 18.05.2009
Сообщений: 201
28.04.2010, 19:35
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  [ТС]
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
 Аватар для diam
846 / 84 / 7
Регистрация: 06.12.2009
Сообщений: 345
30.04.2010, 09:31
в прицепе построил тебе блок-схемы
Миниатюры
Для каждого массива вычислить: значение максимального элемента, количество отрицательных элементов  
Вложения
Тип файла: doc noName.pas.xls.doc (33.5 Кб, 12 просмотров)
Тип файла: xls noName.pas.xls (25.0 Кб, 20 просмотров)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
30.04.2010, 09:31
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Новые блоги и статьи
Мой 7 минутный ролик с крамольным предложением про шахматы, предлагаю заценить
_Ivana 18.07.2025
p2UhJNMGY94
Десять Middleware Node.js для эффективного кодинга
Reangularity 18.07.2025
Когда я только начинал работать с Node. js, количество пакетов в npm меня буквально парализовало. Сегодня их больше 1,3 миллиона — попробуй разберись, что стоит твоего внимания, а что нет. Я потратил. . .
Context и глубины Android
mobDevWorks 18.07.2025
В Android разработки Context напоминает воздух - он везде, жизненно необходим, но мало кто может детально объяснить его природу. Мы привыкли получать его как параметр, передавать дальше и. . .
Результаты исследования от команды MCM (июль 2025 г.)
Programma_Boinc 18.07.2025
Результаты исследования от команды MCM (июль 2025 г. ) Как сообщалось в наших предыдущих публикациях, мы изучаем гены, которые имеют наибольший рейтинг и ассоциируются с различными видами рака, в. . .
ИИ-чатбот на React с OpenAI и LangChain.js
Reangularity 17.07.2025
React давно стал для меня золотым стандартом фронтенд-разработки. Его компонентная структура, виртуальный DOM и однонаправленный поток данных идеально подходят для создания динамичных интерфейсов. . .
Пишем адаптер для локального хранилища S3 на C#
stackOverflow 16.07.2025
Разработка современных приложений часто требует интеграции с объектными хранилищами, и Amazon S3 стал де-факто стандартом в этой области. Однако работа с облачными сервисами в процессе разработки. . .
Старые замки
kumehtar 16.07.2025
Смотрел тут фото, попались пара старых замков. И сразу бросилось в глаза из отличие. Например: Замок Бистон, в англии. Разрушенное сооружение. Но - не испорченное людьми, по крайней мере - на. . .
Java и Eclipse Store: Сверхбыстрые приложения с In-Memory DB
Javaican 15.07.2025
Eclipse Store — это микро-движок персистентности для Java, который позволяет хранить и извлекать нативные Java-объекты без необходимости преобразования данных или использования объектно-реляционного. . .
EmBitz, создание проекта, отладка, прошивка
locm 15.07.2025
Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .
Трассировка корутин Kotlin с OpenTelemetry
mobDevWorks 14.07.2025
Асинхронное программирование меняет правила игры, особенно когда речь заходит о трассировке операций. В Kotlin с его корутинами эта проблема приобретает особый оттенок, который я хотел бы детально. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru