Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
ШурочКа
0 / 0 / 0
Регистрация: 21.01.2012
Сообщений: 3
#1

Найти последний, из отрицательных элементов , массива Z,содержащего N элементов - Pascal

21.01.2012, 18:52. Просмотров 1054. Ответов 7
Метки нет (Все метки)

1.нужно найти(язык Паскаль) последний, из отрицательных элементов , массива Z,содержащего N элементов.
Найти в матрице GK{m,n,,строки, с наибольшей и найменьшей суммами элементов.
Найти наименьший, положительный, элемент главной диагонали матрицы U{n,n}.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2012, 18:52
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти последний, из отрицательных элементов , массива Z,содержащего N элементов (Pascal):

Найти сумму отрицательных элементов массива вывести на экран индексы всех отрицательных элементов - Pascal
дан масcив в котором N чисел. найти сумму отрицательных элементов массива вывести на экран индексы всех отрицательных элементов

Найти произведение количества отрицательных элементов и количество положительных элементов массива - Pascal
Прошу помощи. Задание: Задан одномерный, целочисленный массив A(n), (n<=40).Найти произведение количества отрицательных элементов и...

Найти количество и среднее арифметическое всех отрицательных элементов массива из 20 элементов - Pascal
Найти количество и среднее арифметическое всех отрицательных элементов массива из 20 элементов (генерируются случайные числа от -10 до...

Двумерный массив. Среди элементов нечетных столбцов массива найти сумму отрицательных элементов - Pascal
Дан массив Х (M,N). Среди элементов нечетных столбцов массива найти сумму отрицательных элементов.

Вывести номер первого столбца матрицы, содержащего равное количество положительных и отрицательных элементов - Pascal
14. Данная целочисленные матрица размера 5 x 10. Вывести номер ее первой колонки, содержащий равное количество положительных и...

Найти кол-во отрицательных элементов массива предшедствующих наименьшему элементу массива. - Pascal
Дан массив Х(N) Найти кол-во отрицательных элементов массива предшедствующих наименьшему элементу массива.

7
Г.Р.
68 / 68 / 18
Регистрация: 18.01.2012
Сообщений: 132
21.01.2012, 19:19 #2
Номер 1
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
 z:array [1..100] of longint;
 i,otv,n:longint;
begin
 readln(n);
 for i:=1 to n do{запишем n элементов в массив}
  readln(z);
 otv:=0;
 for i:=1 to n do
 begin
  if(z[i]<0) then{если встретили отрицательное число, тогда заносим его в otv}
   otv:=i;
 end;
 writeln(otv);{выводим на экран}
end.
1
ШурочКа
0 / 0 / 0
Регистрация: 21.01.2012
Сообщений: 3
21.01.2012, 19:25  [ТС] #3
спасибо огромное)) спасаете жизнь))) чесное слово)
0
Ev[G]eN
iOS/Android Developer
Эксперт С++
5115 / 1553 / 384
Регистрация: 23.01.2011
Сообщений: 3,179
Завершенные тесты: 1
21.01.2012, 19:41 #4
Цитата Сообщение от ШурочКа Посмотреть сообщение
3. Найти наименьший, положительный, элемент главной диагонали матрицы U{n,n}.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const
 n = 5;
 m = 5;
var
 arr: array[1..n, 1..m] of integer;
 i, j, min: integer;
begin
 min:=1;
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      arr[i, j]:=random(20)-5;
      write(arr[i, j]:4);
     end;
    writeln;
   end;
 writeln;
  for i:=1 to n do
   if (arr[i, i] > 0) and (arr[i, i] < arr[min, min]) then min:=i;
 writeln('Минимальный элемент главной диагонали: ', arr[min, min]);
end.
1
SuPeR XaKer
21.01.2012, 22:27
  #5
 Комментарий модератора 
ШурочКа, называйте темы информативно
1
Ev[G]eN
iOS/Android Developer
Эксперт С++
5115 / 1553 / 384
Регистрация: 23.01.2011
Сообщений: 3,179
Завершенные тесты: 1
22.01.2012, 01:00 #6
я присмотрелся к коду Г.Р., и понял, что не правильный он...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var 
 arr: array[1..100] of integer;
 n, i, ot: integer;
begin
 readln(n);
  for i:=1 to n do
   begin
    arr[i]:=random(20)-5;
    write(arr[i], ' ');
     if arr[i] < 0 then ot:=i;
   end;
 writeln;
 writeln('Последний отрицательный элемент: ', arr[ot]);
end.
Pascal
1
2
for i:=1 to n do{запишем n элементов в массив}
 readln(z);
я например не знаю, как у вас получилось прочитать массив таким образом)
1
Г.Р.
68 / 68 / 18
Регистрация: 18.01.2012
Сообщений: 132
22.01.2012, 01:39 #7
Цитата Сообщение от Г.Р. Посмотреть сообщение
Номер 1
Pascal
1
2
3
4
 ...
 for i:=1 to n do
  readln(z[i]);
 ...
виноват, так правильнее
1
Ev[G]eN
iOS/Android Developer
Эксперт С++
5115 / 1553 / 384
Регистрация: 23.01.2011
Сообщений: 3,179
Завершенные тесты: 1
22.01.2012, 01:43 #8
Цитата Сообщение от ШурочКа Посмотреть сообщение
нужно найти(язык Паскаль) последний, из отрицательных элементов , массива Z,содержащего N элементов
а у вас находит его порядковый номер. не ошибка, но тем не менее
1
22.01.2012, 01:43
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.01.2012, 01:43
Привет! Вот еще темы с ответами:

Найти сумму всех элементов массива, количество положительных и отрицательных чисел и среднеарифметическое отрицательных чисел - Pascal
заранее всем спасибо буду признателен за любую помощь

Найти сумму отрицательных элементов массива - Pascal
Помогите пож-та

Найти наибольший из отрицательных элементов массива - Pascal
Дан целочисленный массив заданный датчиком случайных чисел в интервале (90), найдите наибольший из отрицательных элементов массива

Найти сумму отрицательных элементов массива - Pascal
Помогите пож-та с задачей


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

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

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