Дане вікно містить наступні вкладки.
Значение переменной y в команде x:=x+y не меняется, т.е y=25
x(новое) = x(старое)+y ⇒ x(старое) = x(новое)-y = 7-25 = -18
Ответ: x=-18; y=25
Var a:array[1..100] of integer;
n, i, k,sum: integer;
begin
read(n);
k:=0;
sum:=0;
for i:=1 to n do read (a[i]);
for i:=1 to n do
begin
if (a[i]<0) then k:=k+1 else
sum:=sum+a[i];
end;
end.
вроде так :)
Program fdg;
uses crt;
var a:char b:integer;
Begin
clrscr;
writeln('Введите марку топлива латиницей');
readln(a);
writeln('Введите сколько литров вам нужно бензина этой марки ');
readln(b);
If a=ae