var i,a,n,k:longint;
var mas:array[1..100000000] of longint;
begin
k:=0;
writeln('Введите количество элементов массива');
readln(n);
writeln('Введите число A');
readln(a);
for i:=1 to n do begin writeln('Введите элемент массива'); readln(mas[i]); if mas[i]>a then k:=k+1; end;
writeln(k,' элементов массива больше числа',' ', a);
end.
Program task1;
var n, S, k, i: integer;
begin
write('Кол-во чисел = ');
readln(n);
S := 0;
For i := 1 to n do
begin
write('Введите число ');
readln(k);
S := S + k
end;
writeln('Сумма введенных произвольных чисел = ', s);
end.
Условие при котором подходят варианты решения
Будет a=21в10,Но какое условие?