Automatinio objektu numeravimas. kas tai yra

Program one; var a,b,c,d,e,g: integer; beginwriteln('введите цену помидор за один килограмм (в рублях)'); readln(a); writeln('введите вес помидор'); readln(b); writeln('стоимость покупки: ',a*b,' руб'); writeln('введите цену огурцов за один килограмм (в рублях)'); readln(c); writeln('введите вес огурцов'); readln(d); writeln('стоимость покупки: ',c*d,' руб'); writeln('введите цену яблок за один килограмм (в рублях)'); readln(e); writeln('введите вес яблок'); readln(g); writeln('стоимость покупки: ',e*g,' руб'); end.

  1)  var i,n,k: integer;   a: array[1..10] of integer; begin   for i: =1 to 10 do   read(a[i]);   writeln;   for i: =10 downto 1 do   write(a[i],' ');   readln;   readln end. 3) var i,n,k: integer; a: array[1..10] of integer; begin   for i: =1 to 10 do   read(a[i]);   writeln;   writeln((a[5]+a[6])/2: 0: 2);   readln;   readln end. 4) var i,n,k,min: integer; a: array[1..10] of integer; begin   for i: =1 to 10 do   begin     read(a[i]);     if (a[i] mod 10=4) or (a[i] mod 10=-4)     then min: =a[i];   for i: =1 to 10 do     if ((a[i] mod 10=4) or (a[i] mod 10=-4)) and (a[i]< min)     then min: =a[i];   writeln(min); end. 5)   var i,n,k,max: integer; a: array[1..10] of integer; begin   max: =0;   for i: =1 to 10 do   begin     read(a[i]);     if (a[i] mod 5=0) and (a[i]> max)     then max: =a[i];   end;   writeln(max); end.