Вопрос по информатике:
СРОЧНО! ДАЮ 90 БАЛЛОВ
Дан одномерный массив состоящий из n элементов. Элементы определяются Random. Диапазон от -100 до 100.
1. Найти max элементов и номер
2. min
3. Среднее значение
4. Поменять местами max и min
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 18.03.2018 12:59
- Информатика
- remove_red_eye 7872
- thumb_up 37
Ответы и объяснения 2
var a:array[1..n] of shortint;
min,max,i:longint;
begin
randomize;
for i:=1 to n do a[i]:=-100+random(201);
min:=1;max:=1;
for i:=2 to n do
begin
write(a[i]:5);
if(a[i]if a[i]>a[max] then max:=i;
end;
writeln;writeln('Max: ',a[max],' index: ',max);
writeln('Min: ',a[min],' index: ',min);
i:=a[min];a[min]:=a[max];a[max]:=i;
for i:=1 to n do write(a[i]:5);
end.
- 19.03.2018 21:54
- thumb_up 20
N = 13;
Var
A:array[1..N] of integer;
i,Max,Min,S:integer;
Begin
Randomize;
Write('Исходный массив A(',N,'):');
Min:=1;
Max:=1;
For i:= 1 to N do
Begin
A[i]:=random(201)-100;
Write(' ',A[i]);
if A[i] if A[i]>A[Max] then Max:=i;
S:=S+A[i];
End;
WriteLn;
WriteLn('Min(A) = A[',Min,'] = ',A[Min]);
WriteLn('Max(A) = A[',Max,'] = ',A[Max]);
WriteLn('Среднее арифметическое элементов массива = ',S/N);
Write('Новый массив:');
S:=A[Min];
A[Min]:=A[Max];
A[Max]:=S;
For i:= 1 to N do
Write(' ',A[i])
End.
Пример работы программы:
Исходный массив A(13): 60 -61 8 -60 58 -73 93 82 74 -35 89 -72 -44
Min(A) = A[6] = -73
Max(A) = A[7] = 93
Среднее арифметическое элементов массива = 9.15384615384615
Новый массив: 60 -61 8 -60 58 93 -73 82 74 -35 89 -72 -44
- 20.03.2018 16:07
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.