Delphi-Help

Главная Статьи Массивы В заданном одномерном массиве заменить максимальный элемент нулём

В заданном одномерном массиве заменить максимальный элемент нулём

Оцените материал
(0 голосов)


В заданном одномерном массиве заменить максимальный элемент нулём.

const n=5;
 
procedure TForm1.Button1Click(Sender: TObject);
var Mas:array[0..n] of Integer;
    i:Integer;
    nomer:Integer;
begin
 
for i:=0 to n do                   //Заносим значения в массив
    Mas[i]:=StrToInt(StringGrid1.Cells[i,0]);
 
nomer:=0;
for i:=0 to n do
 if (mas[i]>Mas[nomer]) then         //Проверка
    nomer:=i;
 
Mas[nomer]:=0;
for i:=0 to n do
    StringGrid1.Cells[i,0]:= IntToStr(Mas[i]);
end;
Прочитано 10922 раз

Авторизация



Счетчики