Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > Форум Форум программистов > Форум Pascal (Паскаль)
Восстановить пароль Регистрация

Ответ Создать новую тему
 
16.05.2010, 17:39   #1
Алексей Bont
Новичок
Регистрация: 16.05.2010
Сообщений: 18
Репутация: 1 (1)
Заменить все отрицательные элементы целочисленного массива / Pascal (Паскаль)

7. Заменить все отрицательные элементы целочисленного массива размера 10 на минимальное значение элементов массива.

помогите братья и сёстры!!
16.05.2010, 17:39
AdAgent
Объявления
16.05.2010, 17:40   #2
yanyk1n
Форумчанин
Регистрация: 12.03.2009
Сообщений: 5,311
Репутация: 4312 (1443)
Лучшие ответы: 25
Заменить все отрицательные элементы целочисленного массива

Код Pascal
1
2
3
m:=a[1];
for i:=1 to 10 do if a[i] < m then m := a[i];
for i:=1 to 10 do if a[i] < 0 then a[i] := m;
Другие темы раздела
Pascal Счастливое шест число
Определить, является ли заданоое шестизначное число счастливым. (счастливым называют такое шестизначное число , у которого сумма первых трех цифр равна сумме последних трех цифр.) ЗАРАНИЕ Спасибо!
Pascal одномерный массив
поменять местами первый минимальный и последний максимальный элементы надеюсь на вашу помощь:)
16.05.2010, 17:49  [ТС]   #3
Алексей Bont
Новичок
Регистрация: 16.05.2010
Сообщений: 18
Репутация: 1 (1)
Заменить все отрицательные элементы целочисленного массива

а можно всю программу? а то я по ПАСКАЛЮ ваще не знаю...
16.05.2010, 17:54   #4
yanyk1n
Форумчанин
Регистрация: 12.03.2009
Сообщений: 5,311
Репутация: 4312 (1443)
Лучшие ответы: 25
Заменить все отрицательные элементы целочисленного массива

Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
const N = 10;
var a:array[1..N]of integer;
i, m: integer;
 
begin
 clrscr;
 write('Введите массив -> ');
 for i:=1 to N do read(a[i]);
 readln;
 m:=a[1];
 for i:=1 to N do if a[i] < m then m := a[i];
 for i:=1 to N do if a[i] < 0 then a[i] := m;
 for i:=1 to N do write(a[i],' ');
 readln;
end.
16.05.2010, 17:54
AdAgent
Объявления
16.05.2010, 18:43  [ТС]   #5
Алексей Bont
Новичок
Регистрация: 16.05.2010
Сообщений: 18
Репутация: 1 (1)
Заменить все отрицательные элементы целочисленного массива

программа работает. Спасибо. только НЕ нужны в программе {uses crt} end {clrscr}.
Правильно ли будет работать программа без них?

Добавлено через 24 минуты
а Блок схема у этой задачи какая, помоги пожалуйста....
16.05.2010, 19:03   #6
AnTro.Net
Форумчанин
Регистрация: 28.04.2010
Сообщений: 931
Репутация: 131 (127)
Лучшие ответы: 4
Заменить все отрицательные элементы целочисленного массива

clrscr - эта функция очищает экран перед запуском проги. Uses Crt включает библиотеку для clrscr.

Если не хочешь, что бы при запуске программы на экране оставались результаты действия предыдущего запуска программы, лучше не убирай, если же тебе все ровно - сноси не стесняйся))
16.05.2010, 20:59  [ТС]   #7
Алексей Bont
Новичок
Регистрация: 16.05.2010
Сообщений: 18
Репутация: 1 (1)
Заменить все отрицательные элементы целочисленного массива / Pascal (Паскаль)

Дано действительное число х, натуральное число n. Вычислить:
13. x ( x - n )( x - 2 n )( x - 3 n )…( x - n2 );

А эту програмку как написать на ПАСКАЛЕ братья)) Срочно нужно))
16.05.2010, 20:59
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Visual Basic .NET: Все элементы целочисленного массива большие нуля и меньшие 3 заменить их индексами
Нужна помощь с задачей по одномерным массивам. Склоняю голову перед мастерами:)
Visual Basic .NET Screampour 25.12.2012 05:03
Turbo Pascal: замените все положительные элементы заданного целочисленного массива из 8 элементов числом 1, а все отрицательные числом 0
ПОмогите!
Turbo Pascal stdiablo 07.11.2012 12:45
C++: Все отрицательные элементы массива уменьшить в двое, а все нулевые элементы заменить на...
Задан массив М, состоящий из К строк и N столбцов. Все отрицательные элементы уменьшить в двое, а все нулевые элементы заменить на – 0.1.
С++ для начинающих Ar2r 14.07.2012 11:37
C++: Заменить все положительные1|отрицательные2 элементы целочисленного массива
помогите пожалуйста решить задачу на Array: Заменить все положительные1|отрицательные2 элементы целочисленного массива размера 10 на значение минимального3|максимального4.
С++ для начинающих onthefly 15.11.2011 17:01
Pascal: Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального.
Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. Заранее спасибо!
Pascal (Паскаль) Lumer 26.10.2010 07:51
Опции темы

Текущее время: 18:23. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.