Дан массив A(n). Создать новый массив, элементами которого являются произведение A(i) на максимальный элемент массив A
161
462
Ответы на вопрос:
ответ: Pascal ABC.Net
Program Zadacha;
var a,b:array[1..1000] of integer;
n, i, max:integer;
BEGIN
write('Задайте количество элементов массива N<1000: ');
read(n);
max:=-30000;
for i:=1 to n do
begin write('Задайте ',i,'-й элемент массива: ');
read(a[i]);
if a[i]>max then max:=a[i];
end;
for i:=1 to n do
begin b[i]:=a[i]*max;
writeln(b[i]);
end;
END.
Объяснение:
Популярно: Информатика
-
Odesskiy200320.05.2020 01:33
-
baba2203.07.2020 23:19
-
2Alinochka213.12.2020 02:47
-
proadidas9021.08.2021 07:19
-
vadimkamazurke27.11.2020 13:34
-
DalinStreeet11.02.2020 21:39
-
dasha194931.07.2022 18:50
-
shi5510.02.2020 08:06
-
Юли00928.05.2022 08:50
-
sorrypepemain21.03.2021 18:59