Способы ввода значений в массив на Паскале 1) Заполнение массива с клавиатуры а) program massiv_1; const n=5; vari: integer; a: array[1..n] of integer; begin writeln('Введите массив из ', n, ' элементов'); for i:=1 to n do read(a[i]); writeln('Вывод элементов массива'); for i:=1 to n do write(a [i]:4); end.
Способы ввода значений в массив на Паскале Заполнение массива случайными числами из диапазона [a,b]. program massiv_random; const n=5; var i,a,b:integer; t:array[1..n] of integer; begin randomize; writeln('Введите диапазон случайных чисел'); readln(a,b); for i:=1 to n do t[i]:=random(b-a)+a; writeln('Вывод элементов массива'); for i:=1 to n do write(t[i]:4); end.
Вычисление среднегодовой температуры program Temperature; Var T: array[1..7] of real; i: integer; Tsred: real; begin for i:=1 to 7 do begin Write( 'T[, i : 2, ']= ); Readln(T[i]) end; Tsred:=0; for i:=1 to 7 do Tsred:=Tsred+T[i]; Tsred:=Tsred/7; Writeln('Средняя температура=', Tsred:6:2, ' градусов') end.