Вопрос по информатике:
Дан массив, содержащий N элементов и заполненный случайными числами от -10 до 9. Сформировать новый массив из значений элементов, стоящих на четных местах. Подсчитать количество отрицательных и положительных значений элементов в новом массиве.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 08.06.2018 07:52
- Информатика
- remove_red_eye 19813
- thumb_up 32
Ответы и объяснения 2
Var a,b:array of integer;
n,i,p,o:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do a[i]:=random(-10,9);
n:=n div 2;
setlength(b,n);
for i:=0 to n-1 do begin
b[i]:=a[2*i];
if b[i]>0 then p+=1 else if b[i]<0 then o+=1;
write(b[i],' ');
end;
writeln();
writeln('Положительных ',p);
writeln('Отрицательных ',o);
end.
- 09.06.2018 19:49
- thumb_up 28
Var b,c,n,i,r:integer;
mass1:array[1..1000] of integer;
mass2:array[1..1000] of integer;
begin
writeln('Введите кол-во элементов массива');
read(n);
r:=1;
for i:=1 to n do
begin
mass1[i]:=random(19)-10;
if i mod 2=0 then begin
mass2[r]:=mass1[i];
r:=r+1;
end;
end;
for i:=1 to r do
if mass2[r]>0 then c:=c+1 else b:=b+1;
writeln('Исходный массив');
for i:=1 to n do
write(mass1[i]:4);
writeln;
for i:=1 to r do
write(mass2[i]:4);
writeln;
writeln('Кол-во положительных элементов массива равно ',c,' а отрицательных равно ',b);
end.
- 01.01.1970 00:00
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.