Program 1;
Var a:array[1..20] of integer;
X, i, k: integer;
Begin
Writeln('введите элементы массива') ;
For i:1 to 20 do
Readln(a[i]);
Writeln('введите х=');
Readln(x);
For i:=1 to 20 do
If x=a[i]
Then k:=k+1;
If k>0
Then writeln('да, содержит')
Else writeln('нет, не содержит');
END.
Var a:real;
Begin
Write('a=') ;read(a) ;
Write('f=', 2*a*a+abs(6-a)+293*a) ;
End.
Var
i, sum: longint;
begin
for i := 1 to 100 do sum := sum + sqr(i);
write(sum);
end.
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('S=',ReadSeqIntegerWhile(i->i<>0).Average)
end.
<u>Пример</u>
24 18 -25 14 6 11 0
S=8