Вопрос по информатике:
Паскаль АВС.net .
Дано одномерный массив длиной n. "сжать "его , изъяв все отрицательные элементы.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 08.11.2015 04:08
- Информатика
- remove_red_eye 12403
- thumb_up 50
Ответы и объяснения 2
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Вводите',ReadInteger('n='));
a:=a.Where(x->x>=0).ToArray; a.Println
end.
Пример
n= 5
Вводите 3 -2 0 -1 5 8
3 0 5
То же, в терминах Pascal ABC ("по-школьному")
const
k=50;
var
n,i,m:integer;
a,t:array[1..k] of integer;
begin
Write('n='); Read(n);
Write('Вводите: ');
for i:=1 to n do Read(a[i]);
m:=0;
for i:=1 to n do
if a[i]>=0 then begin
m:=m+1;
t[m]:=a[i]
end;
n:=m;
for i:=1 to n do begin
a[i]:=t[i];
Write(a[i],' ')
end;
Writeln
end.
Думаю, есть о чем подумать: почему в школе учат писать длинно и сложно?
- 09.11.2015 05:57
- thumb_up 49
Из массива не удалены все отрицательные элементы. Их не видно, потому что распечатывается не весь массив. На первом скане видно, что при вводе массива (-1,-2,3,4,-5) элементы 4 и -5 остались на своих местах, просто они не выводятся на печать. Вот поэтому я считаю, что это решение некорректно, поставленная задача не выполнена.
Свой вариант решения привожу на втором скане.
- 01.01.1970 00:00
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.