Программа на языке Паскаль.
const N=30;
var i, s0, k, a: integer;
b: array [1..N] of integer;
begin
readln(a);
s0:=0;
k:=0;
randomize;
for i:=1 to N do
begin b[i]:=random(20001)-10001; {чтобы диапазон случайных чисел был от -10000 до 10000}
if (b[i]<0) then s0:=s0+b[i];
if (b[i]>0) and (b[i]<=a) then inc(k);
end;
if (s0<>0) then writeln(s0, ' - сумма отрицательных чисел')
else writeln('отрицательных чисел нет');
if (k<>0) then writeln(k, ' - количество положительных чисел, не превосходящих числа А')
else writeln('положительных чисел не превосходящих числа А, нет');
readln;
end.
T=150*2*8/(2+6)=300 сек=5 мин
ответ передача заняла 5 минут.
те которые занимаются трофическом построениями
Ровно 13 строк:
program Geron;
var ab,bc,ca,p: real;
begin
writeln('Определение площади треугольника по теореме Герона');
write('Введите сторону треугольника AB: ');
readln(ab);
write('Введите сторону треугольника BC: ');
readln(bc);
write('Введите сторону треугольника CA: ');
readln(ca);
p:=(ab+bc+ca)/2;
writeln('Площадь треугольника равна ',sqrt(p*(p-ab)*(p-bc)*(p-ca)):0:3)
end.