Program chisla;
uses crt;
var a,b,c : integer;
begin
Readln(a);
b:=a+5;
c:=a*10;
writeln(b);
writeln(c);
end.
//Pascal ABC.NET 3.1 сборка 1219
Var
n,a,b:integer;
x:array of integer;
procedure vvod(n:integer; var x:array of integer);
begin
x:=readarrinteger(n);
end;
begin
readln(n,a,b);
vvod(n,x);
var sub1:=x.Where(x -> x<a);
var sub2:=x.Where(x -> x>b);
var sub:=sub1+sub2;
n:=1;
writeln('Сумма не вошедших:',sub.Sum);
foreach var i in sub do
n:=n*i;
writeln('Произведение не вошедших:',n);
writeln('Количество не вошедших:',sub.Count);
writeln('Все элементы:',sub);
end.
Пример ввода:
5
1
5
-1
-2
4
5
6
Пример вывода:
Сумма не вошедших:3
Произведение не вошедших:12
Количество не вошедших:3
Все элементы:[-1,-2,6]
Линейный алгоритм - алгоритм в котором последовательность действий не меняется в процессе выполнения.
Блок схема - графическое представление алгоритма.
Алгоритм с ветвлением - алгоритм, в котором должно выполняться определенное условие.
Const n=10;
var a:array[1..n] of real;
i,k:integer;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
begin
a[i]:=random*10-5;
write(a[i]:6:2);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]<0 then k:=k+1;
writeln('Количество отрицательных элементов = ',k);
<span>end.</span>