С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
ШурочКа
0 / 0 / 0
Регистрация: 21.01.2012
Сообщений: 3
1

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

21.01.2012, 18:52. Просмотров 1098. Ответов 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
Ответы с готовыми решениями:

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

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

Найти количество и среднее арифметическое всех отрицательных элементов массива из 20 элементов
Найти количество и среднее арифметическое всех отрицательных элементов массива...

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

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

7
Г.Р.
68 / 68 / 72
Регистрация: 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
Эксперт С++
5119 / 1557 / 950
Регистрация: 23.01.2011
Сообщений: 3,187
Завершенные тесты: 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
Эксперт С++
5119 / 1557 / 950
Регистрация: 23.01.2011
Сообщений: 3,187
Завершенные тесты: 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 / 72
Регистрация: 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
Эксперт С++
5119 / 1557 / 950
Регистрация: 23.01.2011
Сообщений: 3,187
Завершенные тесты: 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

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

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

Найти сумму отрицательных элементов массива
Не могу понять, что и как тут делается. Помогите, пожалуйста. Предусловия:...


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

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

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