Задать вопрос
6 января, 16:02

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}.

+4
Ответы (1)
  1. 6 января, 17:31
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Program z6_2; uses crt; const n=6; var a:array[1 ... 6]of real; i:integer; begin clrscr; Writeln ('введите элемент массива') ; for i:=1 to ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы