<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Abs(ReadReal).Println
end.
Ответ: ---------------------15-------------------------
label ra,rb;
var a,b,c: integer;
begin
write('Введите сторону a: ');
readln(a);
ra: write('Введите сторону b: ');
readln(b);
if b>a then
begin
rb: write('Введите сторону c: ');
readln(c);
if c>b then begin
if sqr(c)=sqr(a)+sqr(b) then writeln('Этот треугольник - прямоугольный') else writeln('Этот треугольник - не прямоугольный');
end else begin writeln('Введите число больше, чем ',b); goto rb; end;
end else begin writeln('Введите число больше, чем ',a); goto ra; end;
end.
Решение #1
var a:array[1..1000] of integer;
s,i,k,N:integer;
begin
s:=0;
k:=0;
read(N);
for i:=1 to N do
read(a[i]);
for i:=1 to N do
if a[i]<0 then begin
s:=s+a[i];
k:=k+1;
end;
writeln(s/k);
end.
Решение #2;
var a,i,s,k,N:integer;
begin
k:=0;
s:=0;
read(N);
for i:=1 to N do begin
read(a);
if a<0 then begin
k:=k+1;
s:=s+a;
end;
end;
write(s/k);
end.
Оба решение дают <u>один</u> результат, но первое сделан массивом, а второе простым перебором чисел.
Формат входных данных
Задается натуральное число N
Затем задается N целых чисел
Формат выходных данных
Целое число - среднее арифметическое всех отрицательных чисел
<u><em>Пример</em></u>
<em>Вход</em>
<em>5</em>
<em>1 -2 3 -4 5</em>
<em>Выход</em>
<em>-3</em>
<span>Вопросы в ЛС</span>
Держи 1 и 3 ;) :
1)
Program solution;
Uses Crt;
Var i, poloz, otrits, zero : Byte;
n : integer;
Begin
ClrScr;
poloz := 0;
otrits := 0;
zero := 0;
for i := 1 to 10 do
begin
readln(n);
if n > 0 then poloz := poloz + 1;
if n < 0 then otrits := otrits + 1;
if n = 0 then zero := zero + 1;
end;
write('+: ', poloz, ', -: ', otrits, ', 0: ', zero);
ReadKey;
End.
3:
Program solution;
Uses Crt;
Var sum, num, count : Word;
Begin
ClrScr;
sum := 0;
count := 0;
while sum <= 100 do
begin
write(': ');
readln(num);
sum := sum + num;
count := count + 1;
end;
writeln('Было введено чисел: ', count);
ReadKey;
End.