Var a:array[1..10] of Integer ;
p,i:integer;
Begin
p:=1;
WriteLn('Массив');
For i:= 1 to 10 do
begin
a[i]:=Random(20)-10;
Write(a[i]:3);
if a[i]<0 then p:=p*a[i];
end;
WriteLn;
WriteLn('Произведение отопительных элементов = ',p)
end.
Немного неказисто. и без стрелочек. а так норм.
1)ввели a,b,c,d :a=2.5;b=1;c=6;d=0.3
2)s:=(2.5+1+6+0.3)/4=9.8/4=2.45
3)вывели S
Пример на c#:
string s;
string t;
Console.WriteLine("Введите строку, из которой нужно удалить определенный текст");
s = Convert.ToString(Console.ReadLine());
Console.WriteLine("Введите слово, которое надо удалить");
t = Convert.ToString(Console.ReadLine());
Console.WriteLine(s.Replace(t, String.Empty));
Console.ReadKey();