Напишите и протестируйте программу. Поиск максимального элемента массива. Сначала создается сам массив (в этом примере это целые числа от 0 до 100 включительно). Program Max_element_massiva ;
Var i, n, max : integer ;
A : array [1..100] of integer;
Begin
Writeln('Введите количество элементов массива') ;
Readln(N) ;
Randomize;
For i := 1 to N do
begin
A[i] := Random(100);
Write(A[i]);
end;
Max := A[1];
For i := 2 to N do
if A[i]>Max then Max := A[i];
Writeln('Максимальный Элемент массива = ',Max) ;
Readln ;
End.
с решение

1.
var i, k, n: integer;
            a: array of integer;
begin writeln('Введите кол-во элементов массива');
          readln(N);
          k:=0;
          for i:=1 to N do
          begin read(a[i]);
                    if (a[i] mod 5 =0) and (a[i] mod 3<>0) then
                    inc(k);
          end;
          writeln('k=',k);
readln;
end.
1.
var i, k, n: integer;
            a: array of integer;
begin writeln('Введите кол-во элементов массива');
          readln(N);
          k:=0;
          for i:=1 to N do
          begin read(a[i]);
                    if (a[i] mod 2 =0) and (i mod 3=0) then
                    inc(k);
          end;
          writeln('k=',k);
readln;
end.

I_{1} [/tex]=8 бит
i_{2} [/tex]=16 бит
i_{3} [/tex]=24 бит
i_{4} [/tex]=32 бит
V=i*m*n
V_{11} [/tex]=i1*m1*n1=8*1280*768=7864320(бит)=983040(байт)=960(кбайт)
V_{12} [/tex]=i1*m2*n2=8*1366*768=8392704(бит)=1049088(байт)=1024,5(кбайт)
V_{13} [/tex]=i1*m3*n3=8*1024*768=6291456(бит)=786432(байт)=768(кбайт)
V_{21} [/tex]=i2*m1*n1=16*1280*768=15728640(бит)=1966080(байт)=1920(кбайт)
V_{22} [/tex]=i2*m2*n2=16*1366*768=16785408(бит)=2098176(байт)=2049(кбайт)
V_{23} [/tex]=i3*m2*n2=16*1024*768=12582912(бит)=1572864(байт)=1536(кбайт)
V_{31} [/tex]=i3*m1*n1=24*1280*768=23592960(бит)=2949120(байт)=2880(кбайт)
V_{32} [/tex]=i3*m2*n2=24*1366*768=25178112(бит)=3147264(байт)=3073,5(кбайт)
V_{33} [/tex]=i3*m3*n3=24*1024*768=18874368(бит)=2359296(байт)=2304(кбайт)
V_{41} [/tex]=i4*m1*n1=32*1280*768=31457280(бит)=3932160(байт)=3840(кбайт)
V_{42} [/tex]=i4*m2*n2=32*1366*768=33570816(бит)=4196352(байт)=4098(кбайт)
V_{43} [/tex]=i4*m3*n3=32*1024*768=25165824(бит)=3145728(байт)=3072(кбайт)