Массив из 10 элементов. Формируется случайным образом из интервала [-35,25].Составьте программу умньшения всех элементов массива на 16.
Answers & Comments
Sky09
Uses crt; var a:array[1..10] of integer; i:integer; begin randomize; for i:=1 to 10 do begin a[i]:=random(61)-35; write(a[i]:4); end; writeln; for i:=1 to 10 do begin write(a[i]-16:4); end; end.
Answers & Comments
var a:array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(61)-35;
write(a[i]:4);
end;
writeln;
for i:=1 to 10 do
begin
write(a[i]-16:4);
end;
end.