program qq;
var s,i,n:integer;
a:array [0..1000] of integer;
begin
s:=0;
readln (a[0]);
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if a[i]>a[i-1] then
s:=s+1;
end;
writeln(s);
end.
"больше за i-й элемента массива" - это вообще не понятно, пожалуйста в следующий раз пишите вопрос корректнее
<span>uses crt;
var a,b,c: real;
k: byte;
begin
k:=0;
write('a=');
readln(a);
if round(a)=a then k:=k+1;
write('b=');
readln(b);
if round(b)=b then k:=k+1;
write('c=');
readln(c);
if round(c)=c then k:=k+1;
writeln(k);
readln;
end<span>.</span></span>
Алг
нач
цел a,b
ввод a,b
вывод "площадь: ",a*b,"; "
вывод "периметр: ",(a+b)*2
кон
Відповідь:
Пояснення:
001010011100101+000110101101=0001011010010010
1001*1111=10000111
001101111+000101010111=0000000111000110
001010011-111001=11010
Var ar:array[1..8] of integer;
max,min,i:integer;
begin;
min:=2147483647; //верхняя граница integer
for i:=1 to 8 do
begin;
readln(ar[i]);
if ar[i]<min then min:=ar[i];
if ar[i]>max then max:=ar[i];
end;
writeln('Max:',max);
writeln('Min:',min);
<span>end.</span>