Напишите программу, запрашивающую у пользователя n целых чисел и выводящую на экран: а) количество нулей в последовательности; б) количество положительных чисел; в) количество отрицательных чисел. ( на языке паскаль с++)
Program z1; Var i,n,a,b,c:integer; m: array [1..1000] of integer;Begin write('Введите кол-во чисел - '); readln(n); randomize; a:=0; b:=0; c:=0; for i:=1 to n do begin m[i]:=random(100)-50; write (m[i],' '); end; for i:=1 to n do if (m[i]=0) then a:=a+1; for i:=1 to n do if (m[i]>0) then b:=b+1; for i:=1 to n do if (m[i]<0) then c:=c+1; writeln; writeln ('Кол-во нулей - ',a); writeln ('Кол-во положительных чисел - ',b); writeln ('Кол-во отрицательных чисел - ',c);End.
function ReadInteger(prompt: string): integer; Выводит приглашение к вводу и возвращает значение типа integer, введенное с клавиатуры
function ArrRandom(n: integer := 10; a: integer := 0; b: integer := 100): array of integer; Возвращает массив размера n, заполненный случайными целыми значениями
function Println(delim: string := ' '): sequence of T; Выводит последовательность на экран, используя delim в качестве разделителя, и переходит на новую строку.
procedure Assert(cond: boolean; sourceFile: string := ''; line: integer := 0); Выводит в специальном окне стек вызовов подпрограмм если условие не выполняется
1) var i, max, maxin: smallint; arr1, arr, sum: array[1..25] of smallint;
begin max := -(MaxSmallInt); randomize(); for i := 1 to 25 do begin arr[i] := Random(-100, 100); arr1[i]:=arr[i]; write(arr[i], ' '); while arr[i] <> 0 do begin sum[i] := abs(arr[i] mod 10) + sum[i]; arr[i] := arr[i] div 10; if sum[i] > max then begin max := sum[i]; maxin:=i; end; end; end; writeln(); writeln(arr1[maxin]); end.
2) var i, sum: byte; arr: array[1..20] of byte;
begin sum := 0; randomize(); for i := 1 to 20 do begin arr[i] := random(10); write(arr[i], ' '); if arr[i] = i then sum := i + sum; end; writeln(); writeln(sum); end.
