// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var n:=ReadInteger(n=);
var a:=ArrRandomReal(n,1,50);
a.Println;
var m:=a.Min;
if m0 then
for var i:=0 to n-1 do a[i]/=m;
a.Println
end.
Тестовые решения:
n= 5
15.9562486982701 12.6295463515583 11.5262675264507 24.1544637978796 45.6158542677834
1.38433787534893 1.09571865502651 1 2.09560152429653 3.95755643907304
n= 10
14.0622929614327 16.5069398081428 13.2300360101415 45.449448110745 46.6062807271286 41.3808015088461 21.5502972461052 20.3082026570608 6.33108078377837 25.0892608808769
2.22115203417771 2.60728623941069 2.0896962875659 7.17878189569095 7.36150466545052 6.53613544386811 3.40388915922883 3.20769918290964 1 3.96287170196298
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var n:=ReadInteger(n=);
var a:=ArrRandom(n,1,50);
a.Println;
var m:=a.Max;
if m0 then
for var i:=0 to n-1 do a[i]+=m;
Задача на матрицы в Python 13
a.Println
end.
Тестовые решения:
n= 8
37 3 10 29 39 31 40 10
77 43 50 69 79 71 80 50
n= 10
9 47 40 19 20 37 21 39 26 31
56 94 87 66 67 84 68 86 73 78
Источник: reshaika.com
Написать программу которая запрашивает массив из n элементов и увеличивает
Вопрос по информатике:
Написать программу, которая запрашивает массив из N элементов и увеличивает все элементы массива на максимальный элемент. Протестировать программу на массивах размерностью 8 и 10 элементов.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок — бесплатно!
- bookmark_border
- 11.02.2018 09:52
- Информатика
- remove_red_eye 13023
- thumb_up 40
Ответы и объяснения 1
Program z1;
var a:array[1..100] of integer;
n,i:byte;ma:integer;
begin
write(‘n=’);readln(n);
for i:=1 to n do begin
write(i,’)’);readln(a[i])
end;
ma:=a[1];
for i:=1 to n do begin
if a[i]>ma then begin
ma:=a[i]
end
end;
for i:=1 to n do begin
a[i]:=ma
end;
writeln(‘test n=’,n);
for i:=1 to n do begin
writeln(a[i])
end;
readln
end.
- 12.02.2018 12:29
- thumb_up 5
Знаете ответ? Поделитесь им!
Как написать хороший ответ?
Чтобы добавить хороший ответ необходимо:
- Отвечать достоверно на те вопросы, на которые знаете правильный ответ;
- Писать подробно, чтобы ответ был исчерпывающий и не побуждал на дополнительные вопросы к нему;
- Писать без грамматических, орфографических и пунктуационных ошибок.
Этого делать не стоит:
- Копировать ответы со сторонних ресурсов. Хорошо ценятся уникальные и личные объяснения;
- Отвечать не по сути: «Подумай сам(а)», «Легкотня», «Не знаю» и так далее;
- Использовать мат — это неуважительно по отношению к пользователям;
- Писать в ВЕРХНЕМ РЕГИСТРЕ.
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Excel VBA. Массивы (урок 17)
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи — смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Источник: online-otvet.ru
Написать программу, которая запрашивает массив из n элементов и увеличивает все элементы массива на максимальный элемент. протестировать программу на массивах размерностью 8 и 10 элементов.
Program z1;
var a:array[1..100] of integer;
n,i:byte;ma:integer;
begin
write(‘n=’);readln(n);
for i:=1 to n do begin
write(i,’)’);readln(a[i])
end;
ma:=a[1];
for i:=1 to n do begin
if a[i]>ma then begin
ma:=a[i]
end
end;
for i:=1 to n do begin
a[i]:=ma
end;
writeln(‘test n=’,n);
for i:=1 to n do begin
writeln(a[i])
end;
readln
end.
0,0(0 оценок)
Вот что получилось:
uses Crt;
const n = 10;
var A: array [1..n] of integer;
i, max: integer;
begin
ClrScr;
Randomize;
max:=-1*maxint;
WriteLn ( ‘ Massiv I: ‘);
for i:=1 to n do
begin
A[i] := 1+random(10);
Write (A[i]:4);
if A[i]>max then max:=A[i] ;
end;
WriteLn; WriteLn; WriteLn (‘ Max = ‘, max);
WriteLn; WriteLn ( ‘ Massiv II: ‘);
for i:=1 to n do
begin
A[i]:=A[i]+max;
Write (A[i]:5);
end;
ReadLn;
end.
0,0(0 оценок)
Держи! Код на скриншоте 🙂
0,0(0 оценок)
Фауна — совокупность видов животных, двумя словами — среда животных. Ураган — тропический циклон(сильный ветер). Саванна — пространства, покрытые травяной растительностью с редко разбросанными деревьями и кустарниками. Пустыня — природная зона, в которой отсутствует флора и фауна.
Источник: mozgotvet.com