Вопрос по информатике:
Решить задачу в Паскале:
В числовом массиве из 10 элементов, заданных случайным
образом от -100 до 100:
а) удалить
первый положительный элемент;
б) удалить все
отрицательные элементы. решить это в одной задаче (можно и по отдельности, главное, чтобы работала программа)))
срочно! жду верного и быстрого ответа)
- 06.01.2015 07:40
- Информатика
- remove_red_eye 4868
- thumb_up 30
Ответы и объяснения 1
1)
program gt;
var a,b:array[1..100]of integer;
n,m,i,q:longint;
begin
Randomize;
q:=0;
for i:=1 to 10 do
begin
a[i]:=random(200)-100;
if(a[i]>0)then begin
q:=q+1;
if(q=1)then a[i]:=400;
end;
end;
for i:=1 to 10 do
begin
if(a[i]400)then write(a[i],' ');
end;
end.
2)
program gt;
var a,b:array[1..100]of integer;
n,m,i,q:longint;
begin
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(200)-100;
if(a[i]<0)then begin
a[i]:=400;
end;
end;
for i:=1 to 10 do
begin
if(a[i]400)then write(a[i],' ');
end;
end.
- 07.01.2015 09:49
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.