Регистрация
animals200027
15.01.2023 23:25
Информатика
Есть ответ 👍

Порівняйте інтерфейси вікон програм MS Word , MS PowerPoint з інтерфейсом MS Excel ​

160
242
Посмотреть ответы 1

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

ErikLusenko
ErikLusenko
4,5(83 оценок)

program minpomeniatispervam;

type massiv=array[1..50]of integer;

var v: massiv;

    n,i, minim, indmin, temp: integer;

begin

  write('n='); read(n);

  writeln(' vvedi ',n,' cisel: ');

  read(v[1]); minim: =v[1]; indmin: =1;

  for i: =2 to n do

    begin

      read(v[i]);

      if v[i]< minim   then begin minim: =v[i]; indmin: =i; end;

    end;

  temp: =v[1]; v[1]: =v[indmin]; v[indmin]: =temp;

  writeln('new massiv: ');

  for i: =1 to n do

    write(v[i],'   ');

end.

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