Program z6_2;
uses crt;
const n=6;
var a:array[1..6]of real;
i:integer;
begin
clrscr;
Writeln('введите элемент массива');
for i:=1 to 6 do readln (a[i]);
if min
min:=a[i];
writeln ('min=',min:7:3);
Repeat until keypressed;
end.
Подскажите где ошибка В Pascal
Текст: Составить программу, которая выводит на экран минимальный элемент массива Х и его индекс Х={1, 3, 5, 2, -12, 0}.
Ответы
Ответ дал:
0
uses crt;
var a: array[1..6]of integer;
i, min: integer;
begin
clrscr;
min := maxInt;
Writeln('введите элементы массива');
for i := 1 to 6 do
begin
readln(a[i]);
if (min > a[i]) then min := a[i];
end;
writeln('min=', min);
repeat until keypressed;
end.
var a: array[1..6]of integer;
i, min: integer;
begin
clrscr;
min := maxInt;
Writeln('введите элементы массива');
for i := 1 to 6 do
begin
readln(a[i]);
if (min > a[i]) then min := a[i];
end;
writeln('min=', min);
repeat until keypressed;
end.
Вас заинтересует
10 месяцев назад
10 месяцев назад
1 год назад
5 лет назад
7 лет назад