Question

Ребят, помогите пожалуйста объяснить задачи!!!В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов. Program Om1; Uses crt; Var a :array [1..100] of real; i,n,j : integer; x : array [1..100] of real; Begin clrscr; write('n=');readln(n); for i:=1 to n do readln(a[i]); j:=1; for i:=1 to n do if a[i]=0 then begin x[j]:=i; j:=j+1 end; for i:=1 to j-1 do write(x[i],' '); End.Дана последовательность целых чисел а1, а2….аn. Выяснить какое число встречается раньше, положительное или отрицательное. Program num2; Uses crt; VAr a :array [1..100] of real; i,n : integer; Begin clrscr; write('n=');readln(n); for i:=1 to n do readln(a[i]); for i:=1 to n do begin if a[i]<>0 then if a[i]>0 then begin writeln('Положительное встречается раньше'); break end else begin writeln('Отрицательное встречается раньше'); break end; end; End.Дана последовательность действительных чисел а1, а2….аn. Выяснить будет ли она возрастающей. Program num4; Uses crt; Var a : array [1..100] of real; i, n, j :integer; Begin clrscr; write('n=');readln(n); a[n+1]:=a[n]+1; for i:=1 to n do readln(a[i]); j:=0; i:=1; while i<n do begin if a[i]<a[i+1] then begin j:=j+1; i:=i+1 end else begin writeln('Последовательность невозрастающая'); break end; end; if i=n then writeln('Последовательность возрастающая'); End.Найти самую большую цифру целого числа. Program rar; uses crt; var n:longint; b:byte; begin clrscr; repeatwrite ('Введите целое число n='); readln (n); until n>0; b:=0; while n>0 do begin if n mod 10 >b then b:=n mod 10; n:=n div 10; end; write ('Самая большая цифра числа=',b); readlnend.

Answer 1

Вот описание 1 проги