Регистрация
vikarere7
19.09.2020 04:30
Информатика
Есть ответ 👍

Там нужно на компьютере

265
472
Посмотреть ответы 1

Ответы на вопрос:

далекоотсолнца
далекоотсолнца
4,8(77 оценок)
Var  a: array[1..n] of integer;   k, i,  m: byte;   min: integer; begin  write('razmer massiva: ');   readln(k);   if (k < 0) or (k > 100) then      begin        writeln('razmer dolzhen byt bolshe 0 i menshe 100');         readln;         exit;       end;   randomize;   writeln('ishodn. massiv: ');   for i: =1 to k do      begin        a[i]: =random(101)-50;         write(a[i]: 4);       end;   min: =a[1];   for i: =2 to k do    if a[i] < min then        begin          min: =a[i];           m: =i;         end;   a[m] : = a[1];   a[1] : = min;   writeln;   writeln('min element = ', min: 4, ' v posicii ', m: 3);   writeln('rezult. massiv: ');   for i: =1 to k do      write(a[i]: 4);   readln; end.

Популярно: Информатика