Категория
Информатика, опубликовано 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.
Ответ
Ответ оставил: Гость
Вроде бы такой ответ
все значения перед входом в цикл
Ответ
Ответ оставил: Гость
1. Нет
2.Да
3.ДА
4.нет
5.Да
Ответ
Ответ оставил: Гость
Тип 4*2=8?Или не так?


Другие вопросы по информатике

Вопрос
Информатика, опубликовано 09.01.2019 16:01
✅ Ответов: 2 на вопрос по информатике: Паскаль! , ! задать случайным образом 9 элементов числового массива – дробные числа от 10 до 50. в этом массиве: 1. найти минимальный элемент и увеличить его на 100. 2. найтимаксимальный элемент и поменять его местами с первым элементом. 3. найти минимальный и максимальный элемент в числовом массиве из 10 элементов, заданных с клавиатуры.поменять и... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Вконтакте Youtube