Есть сомнения в том первый элемент массива это 0.5 или же это 2 элемента 0 и 5 и тогда объявление массивов будет следующим var a:array[1..9] of integer=( 0,5,12,-18,16,13,5,8,0 ); b: array[1..9] of real;
Program massiv;
Uses Crt;
var a:array[1..8] of real =(0.5,12,-18,16,13,5,8,0);
b: array[1..8] of real;
sum:real
i:integer;
begin
clrscr;
write('Массив B: ');
sum:=0;
for i:=1 to 8 do
begin
b[i]:=a[i]/2;
sum:=sum+a[i]+b[i];
write(b[i]:2:2);
end;
writeln;
writeln('Сумма элементов массивов а и b: ',sum);
writeln(' Первый элемент массива а : ',a[1]:2:2);
writeln(' Первый элемент массива b : ',b[1]:2:2);
readkey;
end.
Program chisla;
Uses crt;
var a,b:real;
begin
clrscr;
write('введите число а: ');
readln(a);
write('введите число b: ');
readln(b);
if (a=b) then writeln('Числа равны');
if (a>b) then
begin
a:=a+3;
b:=b-5;
end
else
begin
b:=b+3;
a:=a-5;
end
writeln('a= ',a);
writeln('b= ',b);
readkey;
end.
Немецкий = b + e + f + g = 30.
Французский = c + d + e + f = 42.
Английский и немецкий = g + f = 8.
Английский и французский = d + f = 10.
Немецкий и французский = f + e = 5.
Все три языка = f = 3.
А) Чтобы найти учеников, изучающих только английский, нужно вычесть "d + f + g".
d = (d + f) - f = 10 - 3 = 8.
g = (g + f) - f = 8 - 3 = 5.
Английский = 28 - 13 = 15.
Французский = 42 - (d + e + f).
e = (f + e) - f = 5 - 3 = 2.
42 - (8 + 2 + 3) = 42 - 13 = 29.
Немецкий = 30 - (e + f + g)
30 - (2 + 3 + 5) = 30 - 10 = 20.
Б) Складываем тех, кто знает английский/немецкий/французский и вычитаем 100.
100 - (15 + 29 + 20) = 100 - 64 = 36.
Круги смотри во вложении.