тема одномерные массивы.

[coolbaba]

пожалуйста,помогите!очень нужно!

Длина массива-11
тип элементов-real
Задание: в массиве найти сумму максимального и минимального элемента!

[Roof]

program MaxMin;
uses crt;
const
n = 11;//длина одномерного массива
var
  a : array [1..n] of real; // массив
  i : integer; // счетчик
  MinE, MaxE, Sum : real; //Минимальный и максимальный элементы массива, сумма
begin
clrscr;//очищаем экран
Randomize;
  //заполняем массив псевдослучайными значениями
  for i := 1 to n do
    begin
      a[i] := Random(100)/10 - 5;
      write(a[i]:2:2, '  ');
    end;
  writeln;
  //ищем минимальное
  MinE := a[1];
  for i := 2 to n do
    if a[i] < MinE then
      MinE := a[i];
  WriteLn('Минимальный элемент массива ', MinE:2:2);
  //ищем максимальное
  MaxE := a[1];
  for i := 2 to n do
    if a[i] > MaxE then
      MaxE := a[i];
  WriteLn('Максимальный элемент массива ', MaxE:2:2);
  //считаем сумму максимального и минимального
  Sum := MinE + MaxE;
  WriteLn('Сумма минимального и максимального элементов массива ', Sum:2:2);
  readln;
end.

Или тебе консольное надо приложение? Или что?

[coolbaba]

мне нужно такого типа(тут другое задание), но все же:

procedure TForm1.Button1Click(Sender: TObject);
const n = 7;
var a: array [1..n] of char;
min, max :char;
i, nmax, nmin :integer;
begin
for i := 1 to n do
a[i] := StringGrid1.Cells[i-1,0][1];
max := a[1]; nmax := 1;
for i := 2 to n do
if max < a[i] then
begin
max := a[i];
nmax := i
end;
a[nmax]:=a[n];
a[n]:=max;
for i:=1 to n do
StringGrid2.Cells[i-1,0]:=a[i];
end;

[Roof]

Вот, держи.

[coolbaba]

Огромное спасибо!

[Roof]

Пожалуйста

[wax 123]

1)дан одномерный массив надо найти количество элементов кратных двум,но не кратных шести(среда delphi7).
2)дана квадратная матрица найти количество элементов стоящих на нечетном столбце,но четной строки(в среде delphi7).
не могу разобраться совсем.как все это вывести на form.как правильно написать код.за ранее благодарен за любую помощь!!!

[Stilet]

Одна тема - Один автор. Создавай свою.