Паскаль. написать программу, которая выводит на экран количество чисел х в массиве. в массиве n элементов, числа целые. х задаётся.

236

321

Посмотреть ответы 2

Ответы на вопрос:

двоечник63

Информатика

4,4(20 оценок)

Var a: array[1..1000] of longint; i,k,n,s: integer; begin s: =0; randomize; readln(n); for i: =1 to n do begin a[i]: =random(100); write(a[i],' '); end; writeln; readln(k); for i: =1 to n do if a[i]=k then inc(s); write(s ); end.

NezNeika

Информатика

4,4(60 оценок)

Program s123; var x,y: real; begin writeln('f(x) =x²-3x+9 если x≤3, f(x)=(1)/(x²+6) если x> 3'); writeln('введите значение переменной x'); readln(x); if (x< 3) or (x=3) then y: =sqr(x)-3*x+9 else y: =1/(sqr(x)+6); writeln('f(x)=',y); end.