Выберите все правильные утверждения о массивах в языке Паскаль. a. элементы массива могут быть разных типов b. все элементы массива должны быть одного типа c. элементы массива нельзя ввести с клавиатуры d. массив может содержат не более 10 элементов
Var ar:array[1..n] of integer; i,b:integer; sr:real; begin randomize; writeln('First array:'); for i:=1 to n do begin ar[i]:=random(0,23); write(ar[i]:4); sr:=sr+ar[i]; end; writeln; sr:=sr/n; writeln('Sr=',sr); write('Enter value B:'); readln(b); writeln('Final array:'); for i:=1 to n do begin ar[i]:=ar[i]-b; write(ar[i]:6); end; end.
Var ar:array[1..n] of integer; i,sum:integer; begin randomize; writeln('First array:'); for i:=1 to n do begin ar[i]:=random(5,15); write(ar[i]:4); if i<=6 then sum:=sum+ar[i]; end; writeln; writeln('Sum=',sum); writeln('Final array:'); for i:=1 to n do begin ar[i]:=ar[i]*7; write(ar[i]:6); end; end.
Пример работы программы: First array: 9 15 5 12 13 6 11 7 6 14 13 6 6 10 11 Sum=60 Final array: 63 105 35 84 91 42 77 49 42 98 91 42 42 70 77
Const
n=30;
Var
ar:array[1..n] of integer;
i,b:integer;
sr:real;
begin
randomize;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(0,23);
write(ar[i]:4);
sr:=sr+ar[i];
end;
writeln;
sr:=sr/n;
writeln('Sr=',sr);
write('Enter value B:');
readln(b);
writeln('Final array:');
for i:=1 to n do
begin
ar[i]:=ar[i]-b;
write(ar[i]:6);
end;
end.
Пример работы программы:
First array:
22 7 10 13 1 4 5 6 4 21 8 20 17 15 23 5 19 18 20 19 5 11 14 0 11 4 3 23 23 17
Sr=12.2666666666667
Enter value B:3
Final array:
19 4 7 10 -2 1 2 3 1 18 5 17 14 12 20 2 16 15 17 16 2 8 11 -3 8 1 0 20 20 14