Ввести одномерный массив, состоящий из 10 элементов

[zergon]

Вот условие 2х задач.Надо написать только коды к этим задачам (прогам) на языке Delphi6
Задача 1.

Ввести одномерный массив, состоящий из 10 элементов. Значения массива задать функцией Random (R), где R=10.Вывести сформированный массив на экран в компонент Label1.
Найти максимальный среди четных по значению элементов массива и его индекс. Результат вывести на экран в компонент Label2. Процедуру выполнения данного задания оформить в событии Button1Click компонента Button1.

Задача 2.

Ввести одномерный массив, состоящий из 6 элементов. Значения массива ввести в компонент String Grid1. Вывести сформированный массив на экран в компонент Label.
Найти среднее арифметическое отрицательных нечетных элементов массива. Результат вывести на экран в компонент Label2. Процедуру выполнения данного задания оформить в событии Button1Click компонента Button1.

[Lemo]

100 руб, ася в профиле!

[Alex_FF]

50 руб, ася в профиле!

[SVadiks]

Сообщение от zergon

Вот условие 2х задач.Надо написать только коды к этим задачам (прогам) на языке Delphi6
Задача 1.

Ввести одномерный массив, состоящий из 10 элементов. Значения массива задать функцией Random (R), где R=10.Вывести сформированный массив на экран в компонент Label1.
Найти максимальный среди четных по значению элементов массива и его индекс. Результат вывести на экран в компонент Label2. Процедуру выполнения данного задания оформить в событии Button1Click компонента Button1.

Решение

var
  Form1: TForm1;
  a:array [1..10] of integer;
  i,max:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:='';   Label1.Caption:=''; 
randomize;
max:=0;
   for i:=1 to 10 do
   begin
   a[i]:=random(10)+1;
Label1.Caption:=Label1.Caption + IntToStr(a[i])+ ' '; \\ Заполняем лабел массивом
if (a[i] mod 2=0) and (max<a[i])then begin max:=a[i];  \\ находим четный елемент и сравниваем его с максимальным
      Label2.Caption:='max элемент: ' + IntToStr (max) + '  Индекс: ' + IntToStr (i);       end;      end;     end;
end.

Вторая задачка выполняется почти аналогично.