Написать программу для Pascal ABC.Дан массив действительных чисел,размерность ко...

August 2022 1 2 Report

Написать программу для Pascal ABC.Дан массив действительных чисел,размерность которого N.Подсчитать,сколькоив нем отрицательных,положительных и нулевых элементов.

Answers & Comments

polka125 Program aaa;
var
a,b,c,n,i:longint;
M:array[1..1000000] of real;
begin
read(n); //
for i:=1 to n do //если считывать массив не нужно, то удалить
  read(M[i]); //
a:=0;
b:=0;
c:=0;
for i:=1 to n do
begin
  if M[i]>0 then inc(a);
  if M[i]=0 then inc(b);
  if M[i]<0 then inc(c)
end;
writeln('положительных элементов:',a);
writeln('нулевых элементов:',b);
writeln('отрицательных элементов:',c)
end.

0 votes Thanks 0

Answers & Comments

etot mnogoznachnyj termin ispolzuetsya i v sociologii po znacheniyu on blizok k tea46ee9ae7398a9f353c881e1e22b05a0 82112

kak nazyvaetsya chelovek kotoryj chasto udivlyaetsya i ego legko udivit mozhno odn

ch kakova srednyaya skorost velosipndista na vsem puti

s24bb1f3bc1fe63a491602b86809f7c52e 95472

4...

po kakim predmetam mendeleev poluchil ocenku 5 s plyusom na vypusknyh ekzamenah

ch5a3624afbaaddf774198837c1b8701eb 28354

vysota cd provedyonnaya k osnovaniyu ab ravnobedrennogo treugolnika abc ravna

smotritesmotrite starik poletelstarik poletel do chego zhe on smelkakomu so

kem hotel byt mendeleev i pochemu ego mechta ne sbylas

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

Helpful Links

Helpful Social