Массив из 10 элементов. Формируется случайным образом из интервала [-35,25].Составьте программу умньшения всех элементов массива на 16.

1

Ответы и объяснения

  • Sky09
  • профессор
2013-10-07T21:16:29+04:00
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.