Створити список з 10 випадкових елементів (від 0 до 20). Надрукувати лише від’ємні з них.

Question

Информатика: Створити список з 10 випадкових елементів (від 0 до 20). Надрукувати лише від’ємні з них.

ZacLolka · Accepted Answer

1.
var a, b, s: real;
begin
readln(a, b);
s:=s*b;
writeln(s);
end.

2.
var a, b, c, d, s: real;
begin
readln(a, b, c, d);
s:=a+b+c+d;
writeln(s);
end.

3.
var a, b, c, mult: real;
begin
readlb(a, b, c);
mult:=a*b*c;
writeln(mult);
end.

4.
var a, h, s: real;
begin
readlb(a, h);
s:=a*h;
writeln(s);
end.

5.
var a, b, o: real;
begin
readln(a, b);
o:=a/b;
writeln(o);
end.

6.
const pi=3.14;
var r, l: real;
begin
readln(r);
l:=2*pi*r;
writeln(l);
end.

7.
const pi=3.14;
var r, s: real;
begin
readln(r);
s:=pi*sqr(r);
writeln(s);
end.

8.
var a, s: real;
begin
readln(a);
s:=sqr(a);
writeln(s);
end.

9.
var a, h, s: real;
begin
readln(a, h);
s:=a*h;
writeln(s);
end.

10. хз что это.

MOGZ ответил