Для языка программирования Pascal верный вариант "а" и вариант "c".
Вариант b отпадает - индекс не может быть вещественным.
Вариант d хорош для задания массива в языке программирования Basic, но не в Pascal
Const n = 20;
var a: array[1..n] of real;
i: integer;
begin
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if(i mod 3 <> 0) then write(a[i], ' ');
<span>end.
const n = 18;
var a: array[1..n] of integer;
i, max, fir: integer;
begin
max := 1;
fir := 0;
for i := 1 to n do
begin
read(a[i]);
if(fir = 0) and (a[i] > 0) then fir := i;
if(a [i] < 0) and (a[max] < a[i]) then max := i;
end;
i := a[max];
a[max] := a[fir];
a[fir] := i;
for i := 1 to n do
write(a[i], ' ');
<span>end.</span></span>
A- 1
Б- 1
Г- 1
Е-1
В- А+Б+Г=3
Д- Б+В=4
К- Д+В+Г+Е=3+4+1+1=9
Ответ: 9
Program zz;
var i,n,m:integer;
begin
readln(n,m);
for i:=1 to n do
write('?') ;
for i:=1 to m do
write('!') ;
end.<span>
</span>