Var d:array[1..10] of integer;
s,i:integer;
Begin
s:=1;
For i:=1 to 10 do
begin
readln(d[i]);
If d[i]<>0
Then S:=S*d[i];
end;
Writeln(S);
end.
У тебя всё есть дерзай! У тебя всё получится!!
Надо было написать бы еще среду программирования. Пишу на Qbasic
Первое встречающееся число это 5(10) или 11(4). Затем числа, оканчивающиеся на 11(4) встречаются через 100(4) или 16(10). Поэтому числа будут такие: 5, 5+16=21, 5+32=37, 5+48=53...
5, 21, 37, 53, 69, 85, 101. Следующее будет уже 117.
var
arr: array[1..20] of real;
s:real;
i:integer;
Begin
s:= 0;
write('Массив: ');
for i:=1 to 20 do begin
arr[i]:= random(10);
write(arr[i], ' ');
end;
for i:=1 to 20 do
if Abs(arr[i]) > 1 then
S:= S + arr[i];
writeln;
writeln('Сумма: ', s);
END.