Дан массив целых чисел. Найти количество тех элементов, значение которых положительны и не превосходят заданного натурального числа А. (сделайте в паскале)
Answers & Comments
ad1997ya
Uses crt; const N=20; var i,A,x: integer; arr: array [1..N] of integer; begin clrscr; x:=0; write ('A='); readln (A); writeln ('Array: ');f or i:=1 to N do begin arr[i]:=random(41)-20; write (arr[i],' '); end; for i:=1 to N do begin if (arr[i]>=0) and (arr[i]<=A) then x:=x+1; end; writeln (); writeln ('Answer: ',x); readln (); end.
Answers & Comments
const N=20;
var
i,A,x: integer;
arr: array [1..N] of integer;
begin
clrscr;
x:=0;
write ('A=');
readln (A);
writeln ('Array: ');f
or i:=1 to N do
begin
arr[i]:=random(41)-20;
write (arr[i],' ');
end;
for i:=1 to N do
begin
if (arr[i]>=0) and (arr[i]<=A) then
x:=x+1;
end;
writeln ();
writeln ('Answer: ',x);
readln ();
end.