Var
a,n,i,k:integer;
Begin
Readln(n);
k:=0;
i:=0;
while i<n do
Begin
readln(a);
if a>0
then k:=k+1;
i:=i+1;
end;
Writeln(k);
End.
Если не будет хватать одного выполнения то напишешь "while i<n+1 do"
Если будет ошибка на строчке:
write('Введите A[' + IntToStr(i) + ',' + IntToStr(j) + ',' + IntToStr(k) + '] = ');
можешь просто убрать ее.
Она может не работать из за разных версий Pascal-я, т.к. не везде есть IntToStr.
--------------------------------------------------------------------
var
A: array [1..2,1..2,1..2] of longint;
i, j, k: byte;
sum: longint;
begin
for i := 1 to 2 do
for j := 1 to 2 do
for k := 1 to 2 do
begin
write('Введите A[' + IntToStr(i) + ',' + IntToStr(j) + ',' + IntToStr(k) + '] = ');
ReadLn(A[i, j, k]);
end;
sum := 0;
for i := 1 to 2 do
for j := 1 to 2 do
for k := 1 to 2 do
sum := sum + A[i, j, k];
writeln('Сумма всех элементов трехмерного массива = ', sum);
readln;
end.
var a: array[0..9] of integer;
<span> s: string;
</span><span> i,j: integer;
</span><span>begin
</span><span> for i:=0 to 9 do a[i]:=0;
</span><span> write('число: '); readln(s);
</span><span> for i:=1 to length(s) do inc(a[ord(s[i])-48]);
</span><span> i:=9;
</span><span> while a[i]=0 do i:=i-1;
</span><span> j:=i;
</span><span> i:=0;
</span><span> while a[i]=0 do i:=i+1;
</span><span> if (chr(j+48)+chr(i+48)=s[length(s)-1]+s[length(s)]) or
</span><span> (chr(i+48)+chr(j+48)=s[length(s)-1]+s[length(s)])
</span><span> then writeln('Да')
</span><span> else writeln('Нет');
end.
</span>
число: 18245390
<span>Да
</span>число: 1205483Нет
Если я так поняла
Только знак другой(х<у)