Вопрос по информатике:
дан массив положительных и отрицательных чисел. Вывести количество положительных и отрицательных чисел, стоящих на нечетных местах. Срочно!!!
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 24.08.2018 18:51
- Информатика
- remove_red_eye 6511
- thumb_up 42
Ответы и объяснения 2
var
k, sum, n, i: integer;
A: array of integer;
begin
writeln('Введите размерность массива: ');
readln(n);
SetLength(A, n + 1);
writeln('Введите ', n, ' элементов массива :');
for i := 1 to n do
begin
readln(A[i]);
if i mod 2 0 then
begin
if A[i] > 0 then inc(sum);
if A[i] < 0 then inc(k);
end;
end;
writeln('Кол-во положительных чисел, стоящих на нечетных местах: ', sum);
writeln('Кол-во отрицательных чисел, стоящих на нечетных местах: ', k);
end.
- 25.08.2018 15:51
- thumb_up 41
Uses crt;
const Z=5;
var a:array [1..Z] of real;
x,k,n:integer;
begin
for x:=1 to Z do
begin
readln(a[x]);
if (x mod 2=1) and (a[x]>0) then inc(k);
if (x mod 2=1) and (a[x]<0) then inc(n);
end;
writeln('Положительных: ',k);
writeln('Отрицательных: ',n);
end.
- 26.08.2018 08:02
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.