дан массив положительных и отрицательных чисел. Вывести количество положительных и отрицательных чисел, стоящих на нечетных местах. Срочно!!!
дан массив положительных и отрицательных чисел. Вывести количество положительных и отрицательных чисел, стоящих на нечетных местах. Срочно!!!
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.
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.