Информатика, опубликовано 06.03.2019 05:20
Паскаль! , ! задать случайным образом 9 элементов числового массива – дробные числа от 10 до 50. в этом массиве: 1. найти минимальный элемент и увеличить его на 100. 2. найти
максимальный элемент и поменять его местами с первым элементом. 3. найти минимальный и максимальный элемент в числовом массиве из 10 элементов, заданных с клавиатуры.
поменять их местами.
Ответ оставил: Гость
1,2 var a: array [1..9] of real; i,k: integer; j: real; begin randomize; writeln('массив: '); for i: =1 to 9 do begin a[i]: =(random(410)+100)/10; write(a[i],' '); end; writeln; writeln('массив после увелечения минимального элемента на 100: '); k: =1; for i: =2 to 9 do if a[i]< a[k] then k: =i; a[k]: =a[k]+100; for i: =1 to 9 do write(a[i],' '); writeln; writeln('массив после престановки максиального элемента с первым: '); j: =a[1]; a[1]: =a[k]; a[k]: =j; for i: =1 to 9 do write(a[i],' '); writeln; end. 3 var a: array [1..10] of integer; i,mn,mx: integer; begin writeln('введите массив: '); for i: =1 to 10 do readln(a[i]); mn: =1; mx: =1; writeln('массив'); for i: =1 to 10 do begin if a[i]< a[mn] then mn: =i; if a[i]> a[mx] then mx: =i; write(a[i],' '); end; i: =a[mx]; a[mx]: =a[mn]; a[mn]: =i; writeln; writeln('массив после престановки: '); for i: =1 to 10 do write(a[i],' '); writeln; end.
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01