program ms;
uses crt;
var a:array [1..10] of integer;
l,k,s,i:longint;
begin
clrscr;
writeln('Введите 10 элементов массива');
for i:=1 to 10 do
begin
readln(a[i]);
if a[i]<0 then l:=l+a[i];
if a[i]>0 then k:=k+a[i];
end;
s:=l*k;
writeln(s);
readkey;
end.
Я точно не знаю( с таким не сталкивалась. Скорее всего не правильно.
1.4.50+4.50+4.00+4.00+4.00+3.25+4.25+
4.75=33.25=33.25×100=3325
2.3325÷8=415,625 главное первое число.
Если узнаете ответ напишите правильный
Var
s1,s2 : String;
n,i : Integer;
Begin
n:=0;
Readln(s1);
Readln(s2);
For i:=1 to Length(s1) do If Pos(s1[i],s2)=0 then Inc(n);
Writeln(n);
end.
For i:= 110 downto 90 do
write(" ",i);