Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
NiNashRep
0 / 0 / 0
Регистрация: 01.03.2011
Сообщений: 21
#1

Найти номера первых отрицательных элементов каждой строки.

01.03.2011, 16:12. Просмотров 699. Ответов 4
Метки нет (Все метки)

1) Даны два текстовых файла. Записать в третий файл только те строки, которые есть и в первом, и во втором файлах. (текстовые фалы)

2) Вычесть из положительных элементов элемент с номером К1, а к отрицательным прибавить элемент с номером К2, нулевые оставить без изменения. (одномерные массивы)

3) Удалить все элементы, большие данного числа А (А вводится с клавиатуры). (одномерные массивы)

4) Найти номера первых отрицательных элементов каждой строки. (двумерные массивы)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.03.2011, 16:12
Ответы с готовыми решениями:

Найти номера последних отрицательных элементов каждой строки матрицы
найти номера последних отрицательных элементов каждой строки. решать с помощью...

Найти номера последних отрицательных элементов каждой строки матрицы
найти номера последних отрицательных элементов каждой строки. решать с помощью...

Напечатать номера первых двух отрицательных элементов массива
Дан массив целых чисел из 12 элементов. Напечатать номера первых двух...

Найти среднее арифметическое отрицательных элементов каждой строки матрицы
Если кол-во нечетных элементов массива A(n,m) больше 5, то найти среднее...

Для каждой строки матрицы найти сумму отрицательных элементов
Для каждой строки матрицы найти сумму отрицательных элементов, результат...

4
MAZUR777
605 / 130 / 132
Регистрация: 15.04.2010
Сообщений: 554
01.03.2011, 16:42 #2
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
uses crt;
const max=100;
var  m:array[1..max] of integer;
     n,a,i,j,k,p,x:integer;
beginclrscr;
randomize;
repeat
write('Размер массива до ',max,' n=');
readln(n);until n in [1..max];
writeln('исходный массив:');
for i:=1 to n do
 begin
  m[i]:=random(100);  write(m[i]:4);
 end;
writeln;
write('Введите число для поиска больших его в массиве A=');
readln(a);writeln;
k:=n;{запомним начальный размер массива}
i:=1;{начнем с первого элемента}
while i<=n do{пока есть элементы в массиве}
if m[i]>a then{если число больше А} begin
  if i=n then n:=n-1{если последний, то обрезаем массив}
  else
   begin
    for j:=i to n-1 do{то с этого элемента до предпоследнего}    m[j]:=m[j+1];{присваиваем элемерам значение следующего}
    n:=n-1;{элемент стирается, уменьшаем размер массива}
   end
 end
else i:=i+1;{если не больше идем вперед}if n=k then write('В массиве нет чисел больше ',a)
else if n=0 then write('Все числа больше ',a,' массив пустой')
else
 begin
  writeln('Числа больше ',a,' удалены:');  for i:=1 to n do
  write(m[i],' ');
 end;
readln
end.
Добавлено через 6 минут
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
Procedure KolOtr2(X : MyArray2; n, m : integer);
 
Var
 
   i, j, k : integer;
 
Begin
 
   for i := 1 to n do
 
      begin
 
          k := 0;
 
          for j := 1 to m do
 
             if X[i, j] < 0
 
               then
 
                   Inc(k);
 
          writeln(i,' – ', k);
 
      end;
 
End;
1
NiNashRep
0 / 0 / 0
Регистрация: 01.03.2011
Сообщений: 21
01.03.2011, 16:52  [ТС] #3
Только не догоняю, куда 4 вставлять?
0
MAZUR777
605 / 130 / 132
Регистрация: 15.04.2010
Сообщений: 554
01.03.2011, 16:57 #4
4-е ответ на другое задание
0
NiNashRep
0 / 0 / 0
Регистрация: 01.03.2011
Сообщений: 21
01.03.2011, 16:59  [ТС] #5
Ну я понял. Но это же кусок программы.
0
01.03.2011, 16:59
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.03.2011, 16:59

Найти произведение первых трех отрицательных элементов
Уважаемая администрация прошу написать программу на паскале Ввести...

Найти произведение отрицательных элементов из первых 4 строк массива
Дан двумерный массив M на N. Найти произведение его отрицательных элементов из...

В массиве А[50] найти модули пяти первых отрицательных элементов
№1 В массиве А найти модули пяти первых отрицательных элементов №2 В...


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

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

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