Вставити пропущені символи (команди) і записати код програми у зошит procedure TForm1.Button1Click(Sender: TObject) var a: array [1..___ ] of real; i: integer; min: real; for i := ___ to 15 do a[i] := StrToFloat(Memo1.Lines[i-1]); := a[1]; for i := 2 to 15 do If a[i] < Then min := a[i]; Label1. := FloatToStr (min) + ' — найменше значення'; end Визначити найменше значення 15 елементів табличної величини Вставити пропущені символи (команди) і записати код програми у зошит procedure TForm1.Button1Click(Sender: TObject) var a: array [1..___ ] of real; i: integer; min: real; for i := ___ to 15 do a[i] := StrToFloat(Memo1.Lines[i-1]); := a[1]; for i := 2 to 15 do If a[i] < Then min := a[i]; Label1. := FloatToStr (min) + ' — найменше значення'; end
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Составить программу, которая выполняет удвоения меньшего из двух чисел
Автор: chumakanna17
Решите (паскаль) найти сумму чисел кратных 6
Автор: marketing601
var
arr:array[1..1000] of integer;
i,N:integer;
max:integer;
begin
max:=1;
write('Укажите кол-во эл-ов - ');
read(N);
for i:=1 to N do//Присваивание и вывод массива
begin
arr[i]:=1+random(100);
write(arr[i],' ');
if arr[i]>max then max:=arr[i];
end;
writeln;
writeln('Максимальный эл-т - ',max);
for i:=1 to N do//Увеличение чет. эл-ов
begin
if arr[i] mod 2=0 then arr[i]:=arr[i]+max;
write(arr[i],' ');
end;
end.
Объяснение: