Массивы

@dergott · Регистрация: 19.08.2009

Студворк — интернет-сервис помощи студентам

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

1. В заданном массиве A(N) поменяйте местами наибольший и наименьший элементы (первые по порядку, если их несколько).

2. Дана целочисленная матрица A(N,M). вычислите сумму и произведение тех ее элементов, которые при делении на 2 дают нечетное число.

3. Выясните, имеется ли среди чисел i^3 - 17*i*n^2 + n^3, i=1, ..., n хотя бы одно число, которое кратно заданному числу А и не кратно заданному числу В(А не равно В). При существовании такого числа вычислите сумму всех тех элементов, которые предшествовали ему.

4. В заданном массиве A(N) определите число средств:
a. двух положительных чисел;
b. двух чисел разного знака;
c. двух чисел одного знака, причем абсолютная величина первого числа больше абсолютной величины второгочисла;

буду очень благодарен!!

@Jazon_deenAlt · 19.08.2009, 19:03

намекаю
1) дофига раз россматривалось и розвязівалось на форуме, стоит только поискать
2) если не забыли как заполнять массив то берете

Pascal
1
2
3
4
5
6
7
for i:=1 to n do begin
for j:= 1 to m do begin
if a[i,j] mod(или div непомню карочь остача от деления)2>0 then begin
summ:=summ+a[i,j];
proizv:=proizv*a[i,j];
end;
end;end;

а как что выводить и вводить думаю вы помните

@sheka · 19.08.2009, 19:05

"Не знав, не знав, та й забув" (укр. нар. пословица)
1. for - цикл с определенным количеством повторов.

Pascal
1
2
3
4
5
6
7
8
9
min:=a[1];
max:=a[1];
for i:=2  to  n do begin
if min>a[n] then begin nmin:=n; min:=a[n]; end;
if max<a[n] then megin nmax:=n; max:=a[n]; end;
end;
d:=a[nmin];
a[nmin]:=a[nmax];
a[nmax]:=d;

@dergott · 19.08.2009, 22:26 **[ТС]**

Сообщение от Jazon_deenAlt

намекаю
1) дофига раз россматривалось и розвязівалось на форуме, стоит только поискать
2) если не забыли как заполнять массив то берете

Pascal
1
2
3
4
5
6
7
for i:=1 to n do begin
for j:= 1 to m do begin
if a[i,j] mod(или div непомню карочь остача от деления)2>0 then begin
summ:=summ+a[i,j];
proizv:=proizv*a[i,j];
end;
end;end;

а как что выводить и вводить думаю вы помните

точно точно там mod будет я вот и сомневался как их правильно найти, спасибо . .

sheka тоже спасибо, ну я новичек в паскале, и многое действительно непомню а отчеты сгорели вместе с домом(

@lexus_ilia · 20.08.2009, 01:31

Сообщение от dergott

а отчеты сгорели вместе с домом

Сожалею, надо было их хранить на стороннем сервере (на почтеовом например или на файлообменнике)

@dergott · 20.08.2009, 19:59 **[ТС]**

Сообщение от lexus_ilia

Сожалею, надо было их хранить на стороннем сервере (на почтеовом например или на файлообменнике)

наверное так и буду делать(

Добавлено через 5 часов 46 минут 21 секунду
а 3 и 4 никто не знает?(

@Puporev · 20.08.2009, 20:09

4. В заданном массиве A(N) определите число средств:

А это что значит?

@sheka · 20.08.2009, 20:14

3. Выясните, имеется ли среди чисел i^3 - 17*i*n^2 + n^3, i=1, ..., n хотя бы одно число, которое кратно заданному числу А и не кратно заданному числу В(А не равно В). При существовании такого числа вычислите сумму всех тех элементов, которые предшествовали ему.

Pascal
1
2
3
4
5
6
7
8
i:=0;
s:=0;
repeat
  inc(i);
  x:=i*i*i - 17*i*n*n + n*n*n
  inc(s,x);
  if (x mod a=0)and(x mod b<>0) then begin writeln(s); readln; halt end;
until (i>=n);

вроде так.

@dergott · 20.08.2009, 20:28 **[ТС]**

Сообщение от Puporev

А это что значит?

ой
вот так правильней:
В заданном массиве A(N) найдите число соседств:
а. двух положительных чисел
b. двух чисел раного знака
с. двух чисел одного знака, причем абсолютная величина первого числа больше абсолютной величины второго числа

@sheka · 20.08.2009, 20:40

a)

Pascal
1
2
3
4
5
6
7
8
i:=1;
kol:=0;
repeat
  pos:=0;
  while (a[i]>0)and(i<=n) do begin inc(pos); inc(i); end;
  if pos>=2 then inc(kol); 
  while (a[i]<=0)and(i<=n) do inc(i);
until i>n;

@Puporev · 20.08.2009, 20:44

С позволения sheka немного поправлю.

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
uses crt;
var n,i,s,x:longint;
    a,b,k:integer;
begin
clrscr;
write('n=');readln(n);
write('a=');readln(a);
write('b=');readln(b);
s:=0;k:=0;
for i:=1 to n do
 begin
  x:=i*i*i - 17*i*n*n + n*n*n;
  inc(s,x);
  if (x mod a=0)and(x mod b<>0) then
   begin
    k:=1;
    writeln('Такое число есть! Это ',x);
    writeln('Сумма чисел, прешествующих ему=',s);
    break;
   end;
end;
if k=0 then write('Такого числа нет!');
readln
end.

@sheka · 20.08.2009, 20:44

b)

Pascal
1
2
3
4
5
6
7
8
i:=2;
kol:=0;
repeat
  pos:=0;
  while (a[i]*a[i-1]<0)and(i<=n) do begin inc(pos); inc(i); end;
  if pos>=2 then inc(kol); 
  while (a[i]*a[i-1]>=0)and(i<=n) do inc(i);
until i>n;

@Puporev · 20.08.2009, 20:45

В предыдущем моем посте это №3.

@sheka · 20.08.2009, 20:53

c)

Pascal
1
2
3
4
5
6
7
8
i:=2;
kol:=0;
repeat
  pos:=0;
  while (a[i]*a[i-1]>0)and(i<=n)and(abs(a[i-1])>abs(a[i])) do begin inc(pos); inc(i); end;
  if pos>=2 then inc(kol); 
  while ((a[i]*a[i-1]<=0)or(abs(a[i-1])<=abs(a[i])))and(i<=n) do inc(i);
until i>n;

Добавлено через 55 секунд
все задачи писал прям на форуме, работоспособность не гарантирую, хотя надеюсь.

@dergott · 20.08.2009, 21:03 **[ТС]**

парни спасибо огромнейшее за помощь!! ) пасиб пасиб пасиб

@Puporev · 20.08.2009, 21:47

Задачу №4 можно написать в одной программе.
Вводим случайные числа. Поскольку ноль не положительное и не отрицательное, в расчетах не участвует.

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
uses crt;
var a:array[1..100] of integer;
    n,i,ka,kb,kc:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(10)-4;
  write(a[i],' ');
 end;
writeln;
ka:=0;kb:=0;kc:=0;
for i:=2 to n do
 begin
  if (a[i]>0)and(a[i-1]>0) then inc(ka);
  if a[i]*a[i-1]<0 then inc(kb);
  if (a[i]*a[i-1]>0)and(abs(a[i-1])>abs(a[i]))then inc(kc);
 end;
writeln('Количество положительных соседей=',ka);
writeln('Количество соседей разного знака=',kb);
writeln('Количество соседей одного знака, первый больше второго по модулю=',kc);
readln
end.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@dergott 0 / 0 / 0 Регистрация: 19.08.2009 Сообщений: 5

	Массивы 19.08.2009, 18:53. Показов 2110. Ответов 15 Метки нет (Все метки) щас лето, многое забыл, помогите пожалуста решить или хоть намекнуть как правильно сделать. 1. В заданном массиве A(N) поменяйте местами наибольший и наименьший элементы (первые по порядку, если их несколько). 2. Дана целочисленная матрица A(N,M). вычислите сумму и произведение тех ее элементов, которые при делении на 2 дают нечетное число. 3. Выясните, имеется ли среди чисел i^3 - 17in^2 + n^3, i=1, ..., n хотя бы одно число, которое кратно заданному числу А и не кратно заданному числу В(А не равно В). При существовании такого числа вычислите сумму всех тех элементов, которые предшествовали ему. 4. В заданном массиве A(N) определите число средств: a. двух положительных чисел; b. двух чисел разного знака; c. двух чисел одного знака, причем абсолютная величина первого числа больше абсолютной величины второгочисла; буду очень благодарен!! 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	20.08.2009, 20:45
	В предыдущем моем посте это №3. 1

@dergott 0 / 0 / 0 Регистрация: 19.08.2009 Сообщений: 5
	20.08.2009, 21:03 [ТС]
	парни спасибо огромнейшее за помощь!! ) пасиб пасиб пасиб 0