<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var aw:=ReadlnString('Введите строку:').ToWords;
var w:=ReadlnString('Введите искомое слово:');
var i:=aw.FindIndex(e->e=w);
var s:string;
if i>-1 then
if i=aw.Count-1 then s:=aw[:i].JoinIntoString
else s:=(aw[:i]+aw[i+1:]).JoinIntoString
else s:=aw.JoinIntoString;
s.Println
end.
<u>Замечание:</u>
Учитываются именно <u>слова</u>, а не контекст, т.е. слово должно отделяться от остальной части строки пробелом, либо признаками начала/конца строки.
В С++ ввод значения переменной реализуется с помощью оператора cin, то есть cin >> a;
Var a:array [1..10] of integer;
var i:integer;
var sum, mul, n, t:integer;
begin
writeln('Введите 10 чисел:');
for i := 1 to 10 do begin
readln(a[i]);-
end;
sum := 0;
mul := 0;
n := 0;
for i := 1 to 10 do begin
t := a[i];
if t > 0 then begin
sum := sum + t;
if mul = 0 then begin
mul = t;
else begin
mul := mul * t;
end;
n := n + 1;
end;
end;
writeln('Сумма: ', sum);
writeln('Произведение: ', mul);
writeln('Количество: ', n);
end.