Массивы в Pascal

program n1;
uses crt;
var aw:array[1..10] of integer;
i,w,g:integer;
begin
g:=0;
w:=10;
for i:=0+1 to w do begin
aw[i]:=random(100);
write(aw[i]:6);
          end;
writeln();
write('Чот');
for i:=0+1 to w do begin
if aw[i] mod 2 = 0 then g:=g+1; end; write('Всего чотных чисел ',g);
writeln();
write('Не чот');
g:=0;
for i:=0+1 to w do begin
if aw[i] mod 2 > 0 then g:=g+1;end; write('Всего не чотных чисел ',g) ;
end.

const n = 10;
type Mstring = array [1..n] of string;
var m:Mstring;
procedure InputM(var arg:Mstring);
var i:byte;
begin
     for i:=1 to n do
         begin
              writeln('enter string number ',i);
              readln(arg[i]);
         end;
end;
 
procedure OutputM(const arg:Mstring);
var i:byte;
begin
     for i:=1 to n do
         begin
              writeln(arg[i]);
         end;
end;
function repl(const arg:string):string;
var i:byte;
    res:string;
begin
     res:=arg;
     for i:=1 to length(res) do
         begin
              if res[i] = '!' then res[i]:='.';
         end;
     repl:=res;
end;
 
procedure MasRepl(var arg:Mstring);
var i:byte;
begin
     for i:=1 to n do
         begin
              arg[i]:= repl(arg[i]);
         end;
end;
 
begin
     InputM(m);
     MasRepl(m);
     OutputM(m);
     readln;
end.

program n1;
uses crt;
var i,c,m,g,v,s,q,h :integer;
begin
q:=random (10);
for h:=1 to q do begin
writeln('Какое попалось яблоко ? Красное,Зеленое,Желтое,Испорченное ?');
readln(s);
if s=1 then i:=i+1 else if s=2 then c:=c+1 else if s=3 then g:=g+1 else if s=4 then v:=v+1 ;
end;
writeln('     Всего яблок в куче ',i+c+g+v);
writeln ('  Красных яблок ' ,i, '  Зеленых яблок ',c);
writeln ('  Желтых яблок ',g,'  Испорченных яблок ',v);
end.

Program i563;
  Var M: array [1..100] of integer;
      N, a, b, c, d, i: integer;
  Begin
    a:=0;
    b:=0;
    c:=0;
    d:=0;
    readln(N);
    for i := 1 to N do read (M[i]);
    for i:=1 to N do
      Begin
        if M[i]=1 then inc(a);
        if M[i]=2 then inc(b);
        if M[i]=3 then inc(c);
        if M[i]=4 then inc(d);
      End;
    write(a,' ',b,' ',c,' ',d);
  End.

begin
read(n);
for i:=1 to n do
read(m);

program m1;
var i : byte;
	max,imax:integer;
	a:array [1..10] of integer;
BEGIN
for i:=1 to 10 do
	begin
		readln(a[i]);
	end;	
	max:=a[1];
for i:=1 to 10 do
	while max<a[i] do
		begin
			max:=a[i];
			imax:=i;
		end;
	writeln('max=',max);
	writeln('imax=',imax);
END.

const
         n = 10; //Константа для массива
 
var
         a: array [1..n] of integer; //Обявили массив от 1 до 10(n)
         i, min, max: integer;
 
begin
         for i := 1 to n do // Включили счетчик для ввода чисел в массив от 1 до n
         begin
                  Write('Введите число ', i, ' в массив: ');
                  Readln(a[i]);
         end;
         // Алгоритм вычисления минимального элемента
         min := a[1];
         for i := 2 to n do // Начали с 2, т.к мы присвоили переменной min первое значение
         begin
                  if a[i] < min then
                           min := a[i];
         end;
                             // Алгоритм вычисления максимального элемента
         max := a[1];
         for i := 2 to n do
         begin
                  if a[i] > max then
                           max := a[i];
         end;
         Writeln('Максимальный элемент: ',max);
         Writeln('Минимальный элемент: ',min);
         Writeln('{ВЫВОДИМ МАССИВ}');
         for i:= 1 to n do //Счетчик на вывод массива
         begin
         Writeln(i ,' элемент: ',a[i]);
end;
end.

const N=100;
var
a:array[1..n] of integer;
s,null,o,h,r,k,i:integer;
begin
s:=0; h:=0; r:=0;k:=0;
for i:=1 to n do
begin
a[i]:=random(100)-100;
write(a[i]:4);
end;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(k);
if a[i] mod 2>0 then inc(r);
if a[i]<0 then inc(h);
if a[i]>0 then inc(o);
if a[i]=0 then inc(null); 
end;
writeln;
writeln('kol chetnix elementov= ',k);
writeln('kol nechetnix elementov= ',r);
writeln('kol otrisatelnix elementov= ',h);
writeln('kol polojitelnix elementov= ',o);
writeln('kol 0 elementov= ',null);
end.

 For i:=1 to n do
    For j:= 1 to m do
Begin
If mass[i,j] = a then
 Write('yes')
    Else 
        Write('no');
end;

const n=30;
var a:array[1..n] of integer;
      i,k:integer;
begin 
  for i:=1 to n do 
    begin
      a[i]:=random(100);
       write(a[i],'   ');
    end;
  writeln;
   k:=0
   for i:=1 to n do
      begin 
      if a[i]>50 then 
         k:=k+1;
        end; 
     writeln('чисел со значениями >50: ', k);
   end.