дан массив положительных и отрицательных чисел. Вывести количество положительных...

August 2022 2 4 Report

дан массив положительных и отрицательных чисел. Вывести количество положительных и отрицательных чисел, стоящих на нечетных местах. Срочно!!!

Royal21 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.

Sky09 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.

Sky09 В зависимости от раpмерности менять константу Z

Answers & Comments

pri elektrolize vodnogo rastvora hlorida medi ii na anode vydelilos 896l

reshite chto smozhete no zhelatelno bolshuyu chast

рекомендуемые вопросы

Helpful Links

Helpful Social