Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация

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

помогите братья и сёстры!!
AdAgent
Объявления
16.05.2010, 17:39
yanyk1n
Форумчанин
4312 / 1443 / 25
Регистрация: 12.03.2009
Сообщений: 5,311
16.05.2010, 17:40
  #2
Код 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;
Алексей Bont
Новичок
1 / 1 / 0
Регистрация: 16.05.2010
Сообщений: 18
16.05.2010, 17:49  [ТС]
  #3
а можно всю программу? а то я по ПАСКАЛЮ ваще не знаю...
yanyk1n
Форумчанин
4312 / 1443 / 25
Регистрация: 12.03.2009
Сообщений: 5,311
16.05.2010, 17:54
  #4
Код 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.
Алексей Bont
Новичок
1 / 1 / 0
Регистрация: 16.05.2010
Сообщений: 18
16.05.2010, 18:43  [ТС]
  #5
программа работает. Спасибо. только НЕ нужны в программе {uses crt} end {clrscr}.
Правильно ли будет работать программа без них?

Добавлено через 24 минуты
а Блок схема у этой задачи какая, помоги пожалуйста....
AnTro.Net
Форумчанин
131 / 127 / 4
Регистрация: 28.04.2010
Сообщений: 931
16.05.2010, 19:03
  #6
clrscr - эта функция очищает экран перед запуском проги. Uses Crt включает библиотеку для clrscr.

Если не хочешь, что бы при запуске программы на экране оставались результаты действия предыдущего запуска программы, лучше не убирай, если же тебе все ровно - сноси не стесняйся))
Алексей Bont
Новичок
1 / 1 / 0
Регистрация: 16.05.2010
Сообщений: 18
16.05.2010, 20:59  [ТС]     Заменить все отрицательные элементы целочисленного массива
  #7
Дано действительное число х, натуральное число n. Вычислить:
13. x ( x - n )( x - 2 n )( x - 3 n )…( x - n2 );

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

Похожие темы
Тема Раздел Ответов Автор Дата
Pascal ABC все отрицательные заменить нулями ,числа которые больше 7 заменить их остатком от их целочисленного деления на 7
помогите сделать,ввести с клавиатуры 10 произвольных чисел,все отрицательные заменить нулями ,числа которые больше 7 заменить их остатком от их целочисленного деления на 7
Pascal ABC 2 николайs 20.12.2012 11:43
Turbo Pascal замените все положительные элементы заданного целочисленного массива из 8 элементов числом 1, а все отрицательные числом 0
ПОмогите!
Turbo Pascal 1 stdiablo 07.11.2012 12:45
Pascal ABC Заменить все отрицательные элементы на первый элемент массива
дан массив целых чисел (n=18), заполненный случайным образом числами из промежутка , заменить все отрицательные элементы на первый элемент массива.
Pascal ABC 1 Калерчик 15.01.2012 20:08
Pascal Все отрицательные элементы массива заменить нулем
N=10 Все отрицательные элементы массива заменить нулем. const WG=100; type tmasi=arrayof integer; var a:tmasi; i,j:byte; procedure pro_vv_mas(var n:byte; var...
Pascal (Паскаль) 1 Dikabraz 20.06.2011 01:25
Pascal Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального.
Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. Заранее спасибо!
Pascal (Паскаль) 3 Lumer 26.10.2010 07:51
Pascal Все отрицательные элементы массива В заменить нулями
Все отрицательные элементы массива В заменить нулями.Вывести на экран исходный и преобразованный массивы. Исходные величины:N=7 B=(-2,5,7,-4,3,-8,-1)
Pascal (Паскаль) 1 Blakc Sanday 17.09.2010 22:31
Turbo Pascal Все отрицательные элементы массива заменить на 0
два задания в расчетке осталось помогите плиз 2) Заполнить одномерный массив размерностью М (М ввести с клавиатуры) целыми числами от -30 до 39 и выдать на экран. Все отрицательные элементы...
Turbo Pascal 1 preyone 02.06.2010 23:04
Free Pascal Заменить нулем все его отрицательные элементы массива
Дан двумерный массив 5х5. Заменить нулем все его отрицательные элементы .
Free Pascal 0 buka_777 17.03.2010 11:58
Опции темы

Текущее время: 03:28. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.