// PascalABC.NET версия 3.4, сборка 1767
begin
var mas:=ReadArrInteger('Введите элементы масива-> ',5);
Writeln('количество четных элементов = ',mas.Where(t->t mod 2 = 0).Count);
var z:=ReadInteger('z = ');
Write('значения тех элементов, которые меньше заданного числа Z и кратны 4: ');
mas.Where(t->(t<z )and (t mod 4 = 0)).Print;
end.
Var s:string;
ch:char;
n,i,j,err:integer;
begin
readln(n);
str(n,s);
for i := 1 to length(s)-1 do
for j := 1 to length(s)-i do
if s[j] > s[j+1] then begin
ch:=s[j];
s[j]:=s[j+1];
s[j+1]:=ch;
end;
val(s,j,err);
j*=9;
str(j,s);
n:=0;
for i:=1 to length(s) do begin
val(s[i],j,err);
n+=j;
end;
writeln(n);
<span>end.</span>
Любая одиночная инструкция не является алгоритмом, так как исходя из определения алгоритма, это прежде всего набор инструкций! И если инструкция следует за инструкцией, то образуется алгоритм. Пример из ассемблера, инструкция mov EAX, 245AC сама по себе не является алгоритмом, а если добавить например следом за ней mov EBX, EAX, уже получается алгоритм
Текстовый файл, ну то есть содержит текстовую информацию.
На обычном паскалеАБЦ
var a:array[1..24] of integer; k,i:integer;
begin
k:=0;
for i:=1 to 24 do read(a[i]);
for i:=1 to 24 do if (a[i]>0) and (a[i] mod 2=0) then k:=k+1;
write(k)
<span>end.</span>
