Дан массив,состоящий из 12 случайных целых чисел от -5 до 12.Все его элементы умножить на последний элемент с объяснениями.
Answers & Comments
444ерор444
Program z1; var a:array[1..12] of integer; i:integer; begin for i:=1 to 12 do a[i]:=random(18)-6; тут присваивается каждому аргументу значение от 1 до 18 - 6 т.е от -5 до 12 for i:=1 to 12 do writeln(a[i]*a[12]); тут выводим умножив на последний аргумент end.
Answers & Comments
var a:array[1..12] of integer;
i:integer;
begin
for i:=1 to 12 do a[i]:=random(18)-6; тут присваивается каждому аргументу значение от 1 до 18 - 6 т.е от -5 до 12
for i:=1 to 12 do writeln(a[i]*a[12]); тут выводим умножив на последний аргумент
end.