Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Tan'chik
2 / 2 / 0
Регистрация: 03.09.2010
Сообщений: 77
#1

В заданном одномерном массиве найти последний отрицательный элемент

08.09.2010, 20:16. Просмотров 889. Ответов 3
Метки нет (Все метки)

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

Поменять местами первый положительный и последний отрицательный элементы в одномерном массиве
Дан массив целых чисел (n=10), заполненный случайным образом числами из...

В одномерном массиве найти положительный и отрицательный
Помогите пожалуйста запустить задачу в Pascale. Условия задачи: Создать...

Массив: В одномерном массиве поменяйте последний элемент с первым, второй-с предпоследним и т.д
В одномерном массиве поменяйте последний элемент с первым, второй-с...

Найти последний отрицательный элемент массива, величина которого не превышает заданной величины
Здравствуйте. Помогите с заданием. Найти последний отрицательный элемент...

В заданном одномерном массиве найти наименьшее из нечётных чисел, найти ошибку
Условие В заданном одномерном массиве N<=40 найти наименьшее из нечётных чисел...

3
safa
15 / 15 / 10
Регистрация: 20.03.2010
Сообщений: 74
08.09.2010, 20:40 #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
Uses WinCRt;
Var
i,n,s: Integer;
arr: Array[1..10000] of integer;
Begin
 Read(n);
 For i:= 1 to n do
 Begin
 Read(arr[i]);
 End;
  For i:=1 to n do
   Begin
    If arr[i]<0 Then
    Begin
    s:=arr[i];
    End;
    End;
    write('Последний отрицательный элемент: ',s);
    writeln;
  For i:=1 to n do
  Begin
   If (odd(arr[i])) then
    Begin
     arr[i]:=s;
     End;
     write(arr[i]: 3);
     End;
End.
1
Puporev
Модератор
54221 / 41854 / 28923
Регистрация: 18.05.2008
Сообщений: 98,533
08.09.2010, 21:31 #3
arr: Array[1..10000] of integer;
Begin
For i:= 1 to n do Read(arr[i]);
Я вот не понимаю для чего массив до 10000, неужели вы столько чисел сможете ввести с клавиатуры?
0
lexus_ilia
3050 / 710 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
09.09.2010, 15:16 #4
safa, Это не придирка, а замечание - если подразумевается ввод большого количества чисел, то следует использовать динамическое выделение памяти. Статика (статическое выделение памяти), как правило, используется для чего то мало изменяющегося или имеющего один размер (ну например количество сторон прямоугольника, а точнее их координаты - это массив типа запись состоящий из 4-х элементов).
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.09.2010, 15:16

В заданном одномерном массиве из n элементов найти количество повторяющихся чисел
В заданном одномерном массиве из n элементов найти количество повторяющихся...

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

в заданном одномерном массиве из 10 целых числе найти разность минимального и максимальнеого элементов. Отсортировать массив по убыванию.
В заданном одномерном массиве из 10 целых числе найти разность минимального и...


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

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

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