Дан массив из N действительных чисел. Посчитать сколько в нем отрицательных, положительных и нулевых элементов
123
365
Ответы на вопрос:
Program Masiv1;
Uses crt;
Var t: array [1 ..10] of real; i,pol,otr,nol: integer;
Begin
Writeln ('введите 10 элементов массива');
For I:=1 To 10 Do Read ( t[i] );
pol:=0; otr:=0;nol:=0;
for i:= 1 to 10 do
if t[i]>0 then pol:=pol+1 else
if t[i]<0 then otr:=otr+1 else nol:=nol+1;
Writeln ('число положительных элементов ',pol);
Writeln ('число отрицательных элементов ‘,otr);
Writeln ('число нулевых элементов ',nol);
Readkey
end.
Uses crt;
Var t: array [1 ..10] of real; i,pol,otr,nol: integer;
Begin
Writeln ('введите 10 элементов массива');
For I:=1 To 10 Do Read ( t[i] );
pol:=0; otr:=0;nol:=0;
for i:= 1 to 10 do
if t[i]>0 then pol:=pol+1 else
if t[i]<0 then otr:=otr+1 else nol:=nol+1;
Writeln ('число положительных элементов ',pol);
Writeln ('число отрицательных элементов ‘,otr);
Writeln ('число нулевых элементов ',nol);
Readkey
end.
var a:array [1..100] of integer;
otr, pol, zero : integer;
i : integer;
begin
//как-то заполняем масив
for i:= 1 to 100 do
begin
if (a[i] < 0) then inc(otr) else
if (a[i] = 0) then inc(zero) else
if (a[i] > 0) then inc(pol);
end;
writeln('Отрицательных = ', otr, ' положительных = ',pol, ' равных нулю = ',zero);
end.
otr, pol, zero : integer;
i : integer;
begin
//как-то заполняем масив
for i:= 1 to 100 do
begin
if (a[i] < 0) then inc(otr) else
if (a[i] = 0) then inc(zero) else
if (a[i] > 0) then inc(pol);
end;
writeln('Отрицательных = ', otr, ' положительных = ',pol, ' равных нулю = ',zero);
end.
Популярно: Другие предметы
-
НЕВЕСОМАЯ6729.07.2021 13:48
-
arinasuper00027.01.2020 21:30
-
ilya49330.09.2022 10:29
-
alpysovat07.03.2022 09:10
-
zaobogdan15.01.2021 05:31
-
zevs3411.04.2023 06:53
-
nikgali06.08.2021 13:11
-
2106201711.08.2021 22:15
-
виктория128906.06.2023 09:16
-
Larkys201703.09.2020 22:03