Дан одномерный массив целых чисел,сост.из 14 ячеек,заполн.случайными числами из промежутка [-20;50].увелич.каждый элемент массива на 150
Var a:array[1..14] of integer; i:integer; begin for i:=1 to 14 do a[i]:=a[i]+1; readln; readln; end.
спасибо
Var a:array[1..14] of integer; i:integer; begin for i:=1 to 14 do a[i]:=a[i]+150; readln; readln; end.
не дочитал задание...
:)