Паскаль. Помогите с решением задач

[mango]

Паскаль. Помогите с решением задач

Программирование на языке Паскаль
Паскальные задачки, тво* м*ть)))
Ребят очень срочно нужна ваша помощь, прям кровь из носа :tehnari_ru_837:
Косяк на зиму останется этот один в универе((( по информатике
Буду очень признателен и благодарен!!!!!!

Задание №1
Дано вещественное число - цена 1 кг. конфет. Вывести стоимость 1.2, 1.4, ..., 2 кг. конфет
Задание №2 (Одномерный массив)
Дан массив А размера N (N - не четное число). Вывести его элементы с нечетными номерами в порядке убывания номеров : A[N], A[N-2], A[N-4], ..., A[1]. Условный оператор не использовать.
Задание №3 (Двумерный массив)
Дан двумерный массив размера M x N. Найти максимальный среди минимальных элементов ее строк.
Задание №4 (Строки)
Даны строки S и S0. Найти количество вхождений строки S0 в строку S.
Задание №5 (Процедуры и функции)
Описать процедуру Swap(X,Y), меняющую содержимое переменных X и Y (X и Y - вещественные параметры, являющиеся одновременно входными и выходными). С ее помощью для данных переменных A, B, C, D последовательно поменять содержимое следующих пар: A и B, C и D, B и С и вывести новые значения A, B, C, D.

:tehnari_ru_942::tehnari_ru_942::tehnari_ru_942:

 

[DDS]

Задача 1

var x,s:real; i:integer;
begin
  read(x);
  s:=x*0.2;
  for i:=1 to 5 do
      begin
        x:=x+s;
        writeln('Price of the ',1.0+i*0.2:5:2,' kilograms = ',x:5:2,'  ');
       end;
  readln;
end.

Задача 2

const n=5;
var a:array [1..n] of integer;
    i:integer;
begin
  randomize;
  for i:=1 to n do
    a[i]:=random(10);
  writeln('Array');
  for i:=1 to n do
    write(a[i],'  ');
  writeln;
  writeln('Odd elements');
  i:=n;
  repeat
     write(a[i],'  ');
     i:=i-2;
  until (i<1);
  writeln;
  readln;
end.

Задача 3

const n=3; m=3;
var a:array [1..n,1..m] of integer;
    max,i,j:integer; min:array [1..m] of integer;
begin
  randomize;
  for i:=1 to n do
    for j:=1 to m do
      a[i,j]:=random(20);
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j],'  ');
      writeln;
    end;
  for i:=1 to n do
    begin
      min[i]:=a[i,1];
      for j:=1 to m do
        if (a[i,j]<min[i]) then min[i]:=a[i,j];
    end;
  writeln;
  max:=min[1];
  for i:=1 to n do
    if (min[i]>max) then max:=min[i];
  writeln(max);
  readln;
end.

Задача 4

const n=3; m=3;
var a:array [1..n,1..m] of integer;
    max,i,j:integer; min:array [1..m] of integer;
begin
  randomize;
  for i:=1 to n do
    for j:=1 to m do
      a[i,j]:=random(20);
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j],'  ');
      writeln;
    end;
  for i:=1 to n do
    begin
      min[i]:=a[i,1];
      for j:=1 to m do
        if (a[i,j]<min[i]) then min[i]:=a[i,j];
    end;
  writeln;
  max:=min[1];
  for i:=1 to n do
    if (min[i]>max) then max:=min[i];
  writeln(max);
  readln;
end.

Задача 5

var a,b,c,d:integer;
procedure swap(var x,y:integer);
var t:integer;
begin
  t:=x;
  x:=y;
  y:=t;
end;

begin
 readln(a,b,c,d);
 swap(a,b);
 swap(c,d);
 swap(b,c);
 write(a,'  ',b,'  ',c,'  ',d)
 readln;
end.

PS А вообще настолько элементарные задачи надо уметь решать самому.