Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
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
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Visual Basic .NET Все элементы целочисленного массива большие нуля и меньшие 3 заменить их индексами
Нужна помощь с задачей по одномерным массивам. Склоняю голову перед мастерами:)
Visual Basic .NET Screampour 25.12.2012 05:03
Pascal ABC все отрицательные заменить нулями ,числа которые больше 7 заменить их остатком от их целочисленного деления на 7
помогите сделать,ввести с клавиатуры 10 произвольных чисел,все отрицательные заменить нулями ,числа которые больше 7 заменить их остатком от их целочисленного деления на 7
Pascal ABC николайs 20.12.2012 11:43
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
Pascal Все отрицательные элементы массива В заменить нулями
Все отрицательные элементы массива В заменить нулями.Вывести на экран исходный и преобразованный массивы. Исходные величины:N=7 B=(-2,5,7,-4,3,-8,-1)
Pascal (Паскаль) Blakc Sanday 17.09.2010 22:31
Turbo Pascal Все отрицательные элементы массива заменить на 0
два задания в расчетке осталось помогите плиз 2) Заполнить одномерный массив размерностью М (М ввести с клавиатуры) целыми числами от -30 до 39 и выдать на экран. Все отрицательные элементы...
Turbo Pascal preyone 02.06.2010 23:04
Опции темы

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

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