Var a: array [1..100] of integer; n,i,x,k:integer; begin write('n='); readln(n); for i:=1 to n do begin write('A[',i,']='); readln(a[i]); end; write('x='); readln(x); k:=0; for i:=1 to n do if a[i]=x*x then inc(k); writeln('Количество = ',k); readln; end.
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016 begin var n:=ReadInteger('n='); if n>36 then begin Writeln('Слишком много, максимум 72'); Exit end else begin var a:=new integer[n]; var k:=0; for var i:=1 to 8 do for var j:=i+1 to 9 do begin a[i]:=10*i+j; Write(a[i],' '); Inc(k); if k>n then Exit end end end.
ЛИНЕЙНЫЙ АЛГОРИТМ состоит из последовательности операций, выполняющихся только один раз в порядке следования: На практике линейные алгоритмы в чистом виде встречаются редко: при расчете арифметических и алгебраических выражений, при расчете по формулам, при решении ряда бытовых задач.
Блок-схема — распространенный тип схем (графических моделей), описывающих алгоритмы или процессы, в которых отдельные шаги изображаются в виде блоковразличной формы, соединенных между собой линиями, указывающими направление последовательности.
Алгоритм ветвления- это алгоритм, в котором выбирается один из нескольких вариантов (путей).
a: array [1..100] of integer;
n,i,x,k:integer;
begin
write('n=');
readln(n);
for i:=1 to n do
begin
write('A[',i,']=');
readln(a[i]);
end;
write('x=');
readln(x);
k:=0;
for i:=1 to n do
if a[i]=x*x then
inc(k);
writeln('Количество = ',k);
readln;
end.