Ответ в виде изображения. Это граф. Осталось только перечертить себе в тетрадь
Я думаю В и Г. В команде есть новички и есть те, кто плывет не первый раз. Так как среди пассажиров есть новички, то они не знают о подсказке
program picaso; uses crt;
type vector=array[1..100] of integer;
var a:vector;
i,n,s:integer;
begin clrscr;
writeln('n :');readln(n);
for i:=1 to n do
begin
write('значение ',i,' : ');
readln(a[i]);
end;
s:=0;
for i:=1 to n do
if i mod 2 <>0 then s:=s+a[i];
writeln('сумму элементов массива, имеющих нечетное значение: ',s);
readln;
end.
№4
var n,i:integer; s:real;begins:=52000;n:=2;for i:=1 to n dos:=s*1.01;writeln (s:6:2);end.