Найти номер последнего положительного элемента в массиве

@benzzopila · Регистрация: 11.11.2009

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

Дана матрица целых чисел.
Требуется сформировать массив, содержащий номера строк матрицы, имеющих от-рицательную сумму элементов.
***
Найти номер последнего положительного элемента, расположенного на нечетном месте в массиве вещественных чисел.
***
Дано: массив целых чисел.
Требуется сформировать новый массив, содержащий номера элементов исходного мас-сива, абсолютное значение которых является простым числом.
***
Дано: массив вещественных чисел.
Требуется сформировать новый массив, содержащий номера положительных элементов исходного массива, расположенных на нечетных позициях.
***
Дан массив целых чисел.
Требуется удалить из него повторные вхождения элементов (оставить элементы в одном экземпляре).
***
Дана строка символов.
Выделить и вывести слова, ограниченные пробелом или знаками препинания: запятая, точка, двоеточие, точка с запятой.

Заранее Спасибо!!!

@Artishok · 11.01.2010, 21:51

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
program poisk;
var
a:array[1..100] of real;
i,n,k:integer;
 
 
begin
randomize;
writeln('введите размерность массива');
readln(n);
for i:=1 to n do 
 begin
  a[i]:=random(11)-5;
 end;
 writeln('исходный массив');
 for i:=1 to n do
  begin
   write(a[i],' ');
  end;
 writeln;
for i:=n downto 1 do
 begin
  if (i mod 2>0) and (a[i]>0) then
   begin
    k:=i;
    break;
   end;
 end;
 if k=0 then writeln('такого элемента нет');
 if k>0 then
 write('номер последнего положительного элемента на нечетном месте элемента',' ',k);
 end.

Добавлено через 44 минуты
3.

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
program poiskprost;
var
a,b:array[1..100] of integer;
i,n:integer;
 
 
 
function prost(n:longint):boolean;
var i:integer;
b:boolean;
begin
 b:=true;
 for i:=2 to round(sqrt(n)) do if n mod i=0 then
 begin
  b:=false;
  break;
 end;
 prost:=b;
end;
 
 
begin
randomize;
writeln('введите размерность массива');
readln(n);
for i:=1 to n do begin
 a[i]:=random(10);
end;
writeln('исходный массив');
for i:=1 to n do begin
 write(a[i],' ');
 end;
 writeln;
for i:=1 to n do begin
  if prost(a[i])=true then
  b[i]:=i;
  end;
for i:=1 to n do begin
  write(b[i],' ');
  end;
  end.

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
27
program mass;
var
a,b:array[1..100] of integer;
i,j,n,k:integer;
 
 
 
begin
 writeln('введите размерность массива 1');
  readln(n);
for i:=1 to n do begin
  a[i]:=random(11)-5;
 end;
  writeln('исходный массив');
for i:=1 to n do begin
  write(a[i],' ');
 end;
  writeln;
  k:=0;
for i:=1 to n do begin
   if (a[i]>0) and (i mod 2<>0) then 
   b[i]:=i
  end;
for i:=1 to n do begin
    write(b[i],' ');
   end;
end.

правда я пока не додумался как убрать нулевые элементы из нового массива.
а так вроде правильно работают

@Snoopy · 11.01.2010, 22:01

исправленный 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
27
28
29
program mass;
var
a,b:array[1..100] of integer;
i,j,n,k,p:integer;
 
 
 
begin
 writeln('введите размерность массива 1');
  readln(n);
for i:=1 to n do begin
  a[i]:=random(11)-5;
 end;
  writeln('исходный массив');
for i:=1 to n do begin
  write(a[i],' ');
 end;
  writeln;
  k:=0;
for i:=1 to n do
 if (a[i]>0) and (i mod 2<>0) then
  begin
   p:=p+1;
   b[p]:=i;
  end;
for i:=1 to p do begin
 write(b[i],' ');
end;
end.

@Artishok · 11.01.2010, 22:04

значит и в 3 такая же байда
22 и 23 туда добавить
и в последнем цикле не n тогда а p

3.исправленный

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
program poiskprost;
var
a,b:array[1..100] of integer;
i,n,p:integer;
 
 
 
function prost(n:longint):boolean;
var i:integer;
b:boolean;
begin
 b:=true;
 for i:=2 to round(sqrt(n)) do if n mod i=0 then
 begin
  b:=false;
  break;
 end;
 prost:=b;
end;
 
 
begin
randomize;
writeln('введите размерность массива');
readln(n);
for i:=1 to n do begin
 a[i]:=random(10);
end;
writeln('исходный массив');
for i:=1 to n do begin
 write(a[i],' ');
 end;
 writeln;
 p:=0;
for i:=1 to n do 
  if prost(a[i])=true then begin
  p:=p+1;
  b[p]:=i;
  end;
for i:=1 to p do begin
  write(b[i],' ');
  end;
  end.

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@benzzopila 0 / 0 / 0 Регистрация: 11.11.2009 Сообщений: 9

	Найти номер последнего положительного элемента в массиве 11.01.2010, 20:35. Показов 6649. Ответов 3 Метки нет (Все метки) Дана матрица целых чисел. Требуется сформировать массив, содержащий номера строк матрицы, имеющих от-рицательную сумму элементов. * Найти номер последнего положительного элемента, расположенного на нечетном месте в массиве вещественных чисел. * Дано: массив целых чисел. Требуется сформировать новый массив, содержащий номера элементов исходного мас-сива, абсолютное значение которых является простым числом. * Дано: массив вещественных чисел. Требуется сформировать новый массив, содержащий номера положительных элементов исходного массива, расположенных на нечетных позициях. * Дан массив целых чисел. Требуется удалить из него повторные вхождения элементов (оставить элементы в одном экземпляре). *** Дана строка символов. Выделить и вывести слова, ограниченные пробелом или знаками препинания: запятая, точка, двоеточие, точка с запятой. Заранее Спасибо!!! 0