В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
nastya788rf
nastya788rf
20.05.2020 08:28 •  Информатика

Найти минимальный элемент массива х(1..10) и максимальный элемент массива.поменять их местами и вывод результирующего массива на экран

Показать ответ
Ответ:
alihannurmambe
alihannurmambe
06.06.2020 22:26

type array100 = array [1..100] of integer;
var x,y:array100;
i,n,min,max:integer;

Begin
  randomize;
  n:=10;
  for i:= 1 to n do begin
    x[i]:=random(n*10)- 10*n div 2 ;
    write(x[i]:4);
    if i mod 10=0 then writeln;
  end;
 
  min:=1;
  max:=1;
  for i:= 1 to n do begin
    if x[i]<x[min] then min:=i;
    if x[i]>x[max] then max:=i;
  end;
  i:=x[min];
  x[min]:=x[max];
  x[max]:=i;
    
  writeln;
  for i:= 1 to n do begin
    write(x[i]:4);
    if i mod 10=0 then writeln;
  end;
 
End.

0,0(0 оценок)
Ответ:
Oueio
Oueio
06.06.2020 22:26

max:=a[1];

for i:=2 to 10 do

begin 

if a[i]>max then

max:=a[i]; 

c:=i; 

 end;

min:=a[1];

for i:=2 to 10 do

begin

if a[i]<min then

min:= a[i];

d:=i;

end;

a[c]:=x;

a[c]:=a[d];

a[d]:=x; 

это кусочек программы в паскале для нахождения максимального элемента на скоко я помню 

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота