Вопрос по информатике:
Паскаль. Массив состоит из 20 положительных и отрицательных целых чисел выбранных случайно. Выведите исходный массив. А затем в отдельных строчках положительные элементы массива с указанием порошкового номера и отрицательные элементы массива с указанием порядкового номера. ОЧЕНЬ НУЖНО! СРОЧНО!
- 27.11.2017 11:31
- Информатика
- remove_red_eye 6720
- thumb_up 39
Ответы и объяснения 2
// Внимание! Если программа не работает, обновите версию!
// Индексация с нуля, поэтому i+1 в выводе
begin
var a:= ArrRandom(20,-10000,10000);a.Println;
Writeln('Положительные');
for var i:= 0 to 19 do
if a[i] > 0 then
Writeln(i + 1,' -> ', a[i]);
Writeln();
Writeln('Отрицательные');
for var i:= 0 to 19 do
if a[i] < 0 then
Writeln(i + 1,' -> ', a[i]);
end.
- 29.11.2017 02:00
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.