Var a: array [1..99] of integer;
i, p, n: integer;
begin
p:=1;
readln(n);
for i:=1 to n do
begin
readln(a[i]);
p:=p*a[i];
end;
writeln('Произведение элементов массива = ', p);
<span>end.</span>
Вот программа, она находит наименьшее число до 99
Пока первый держи, остальные может завтра допишу. А так, в интернете полно примеров решения.
5,10, 15, 20, 25, 30,35,40,45....115
#include <iostream>#include <cstdlib>using namespace std;
int main(){ int a, b, c = 0; cin >> a >> b; if (abs(a) > abs(b)) swap (a, b); for (int i = 0; i < abs(a); i++) { if ((a >= 0 && b >= 0) || (a < 0 && b < 0)) c += abs(b); else c -= abs(b); } cout << c; return 0;}