Ответ:
1 - 1, (4 тоже верно, будут еще индексы выводиться)
2 - 2 - всё верно
3 - 3 59 элементов
4 - 4 массив и 2 множество подходят оба ответа
5 - 4 S := 1
6 - 2)Сумма неотрицательных элементов массива
7 - 1)A : array [1..25] of byte
3)A : array [1..25] of integer
оба правильно
8 - 1)Индекс максимального элемента массива (в переменной m)
9 - программа не правильная
15489431235 ацйуйац5й4йц96а48йц65
const
m = 20;
var
arr: array[1..m] of integer;
i, j, k,r: integer;
begin
for i := 1 to m do begin
arr[i] := random(256);
end;
for i := 1 to m-1 do
for j := 1 to m-i do
if arr[j] > arr[j+1] then begin
k := arr[j];
arr[j] := arr[j+1];
arr[j+1] := k
end;
write (arr[20]);
readln
end.
Решение не возможно. Должно быть условие сколько бит до перекодирования в кодировке было. Проверь условие
var
s, r, l: real;
begin
read(r);
s := pi * r * r;
l := 2 * pi * r;
write(s:0:3, #10, l:0:3);
end.