Const n=100; { размер массива } var a:array[1..n] of integer; i,k:integer; begin { заполняем массив случайными значениями } Randomize; k:=0; Writeln('Элементы массива'); for i:=1 to n do begin a[i]:=Random(41)-20; Write(a[i],' '); if a[i]=0 then Inc(k) end; Writeln; Writeln('Нулевых элементов: ',k) end.
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 const n=5; type Matrix=array[1..n,1..n] of integer;
procedure DummySchool(var a:Matrix); begin Writeln('Ввод элементов матрицы'); for var i:=1 to n do begin Write(n,' элементов строки ',i,': '); for var j:=1 to n do Read(a[i,j]); end; Writeln('Сформирована матрица ',n,'x',n); for var i:=1 to n do begin for var j:=1 to n do Write(a[i,j]:5); Writeln end end;
begin var B:Matrix; DummySchool(B); var sn:=0; var sp:=0; for var i:=1 to n do for var j:=1 to n do if B[i,j]<0 then sn+=B[i,j] else if B[i,j]>0 then sp+=B[i,j]; Writeln('Сумма отрицательных ',sn); Writeln('Сумма положительных ',sp) end.
1) Var n,m,max,min:integer; Begin write('Введите число: '); readln(n); min:=9; max:=0; while n>0 do begin m:=n mod 10; if m<min then min:=m; if m>max then max:=m; n:=n div 10; end; writeln('Максимальное число: ',max); writeln('Минимальное число: ',min); End. 2) var i,count: integer; n,s:string; begin writeln('Введите число: '); readln(s); writeln('Введите цифру: '); readln(n); for i:=1 to length(s) do if(s[i]=n)then count:=count+1; writeln('Количество раз, когда встречается цифра = ',count); end.
n=100; { размер массива }
var
a:array[1..n] of integer;
i,k:integer;
begin
{ заполняем массив случайными значениями }
Randomize;
k:=0;
Writeln('Элементы массива');
for i:=1 to n do
begin
a[i]:=Random(41)-20;
Write(a[i],' ');
if a[i]=0 then Inc(k)
end;
Writeln;
Writeln('Нулевых элементов: ',k)
end.