var
a: array[1..10] of real;
b,c,d,f: integer;
begin
f:=1;
writeln('Введите 10 чисел');
for d:=1 to 10 do
begin
readln(a[f]);
if a[f]>0 then
c:=c+1;
if a[f]<0 then
b:=b+1;
f:=f+1;
end;
writeln('Положительных чисел ',' ',c);
writeln('Отрицательных чисел ',' ',b);
end.
Всего 275 решений
Копируете свою схему и получаете решение
Решение на pascal. Могут быть небольшие недочёты =)
С:ЛИТЕРАТУРА/ПОЭЗИЯ/Пушкин.docx
БАГЕГВД
uses crt;
var ch,a:integer;
begin
readln(ch);
readln(A);
if ((ch div 10)+( ch mod 10)) mod a = 0 then
writeln('YES') else writeln('NO');
readln;
end.
2.
uses crt;
var i,os:integer;
a:array[1..31] of integer;
begin
randomize;
os:=0;
for i:=1 to 31 do
begin
a[i]:=random(5)+0;
if a[i]=0 then inc(os);
end;
for i:=1 to 31 do
write(a[i],' ');
writeln;
if os = 10 then
writeln('YES') else writeln('NO');
readln;
end.