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

Даны 2 массива целых чисел а)найти номера их максимальных элементов б)поменять местами максимальные элементы этих массивов

Показать ответ
Ответ:
Misani
Misani
09.10.2020 18:56

program fantscrin;


   const n = 10;


   var a: array [1..n] of integer;


       b: array [1..n] of integer;


       max_a,max_b,i,k:integer;


begin


   for i:=1 to n do


       a[i]:=random(20);


   for i:=1 to n do


       b[i]:=random(20);


   


   for i:=1 to n do


       write(a[i], '  ');


   writeln('');


   for i:=1 to n do


       write(b[i], '  ');


   


   max_a:=1;


   for i:=2 to n do


       if(a[i]>a[max_a]) then max_a:=i;


   


   max_b:=1;


   for i:=2 to n do


       if(b[i]>b[max_b]) then max_b:=i;


   


   writeln('');


   writeln('Max_a = ',max_a);


   writeln('Max_b = ',max_b);


   


   k:=a[max_a];


   a[max_a]:=b[max_b];


   b[max_b]:=k;


   


   for i:=1 to n do


       write(a[i], '  ');


   writeln('');


   for i:=1 to n do


       write(b[i], '  ');


       


end.

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