Program morebrains;
const
n = 12; {Количество элементов массива}
var
F:array[1..n] of integer;
s:string;
i,sum:integer;
begin
s:='**** -=Alphaeus=- ****';
for i:=1 to 22 do begin write(s[i]); sleep(42) end;
{заполняем массив}
writeln;
for i:=1 to n do F[i]:=i*i-5*i-14;
{Ищем сумму положительных}
sum:=0;
for i:=1 to n do
if F[i]>0 then sum:=sum+F[i];
{Выводим сумму}
writeln;
writeln('Сумма положительных элементов равна ',sum);
end.
Что бы это решать,нужно знать что такое граф,если бы знал,то легко решал,а так надо просто сопоставить данные таблицы и графа,легко же)
A где, собственно, вопрос?
Program n_1;
const pi=3.14;
var r, c, s: real;
begin
writeln('Вычесление длины окружности и площади круга');
write('Введение r>>');
readln(r);
c:=2*pi*r;
s:=pi*r*r;
writeln ('с=', c: 6:4);
writeln ('s=', s: 6:4)
end.
<u>Были исправлены ошибки в операторах </u>
<span>var r, c, s, real:
и
</span><span>writeln ('с=', с: 6:4);</span>