Спрограммой.

program n_1;
var p, i: integer ; b : array [1..20] of integer;
begin
read (' введите любые 20 чисел, отличных от 0 ');
for i: =1 to 20 do read (a[i]);
p: =1;
for i: =1 to 20 do
p: =p+b[i];
writeln ('p=',p);
end.

olesya8262    1   13.12.2019 17:38    2