Int a[5][7];
...
int s = 0;
for (int i = 0; i < 5; ++i)
for (int j = 0; j < 7; ++j)
s += a[i][j];
std::cout<<s;
Здесь есть ошибка счисления потому что 128+178=306 а не 318
Var a,i:integer;
begin
a:=0;
for i = 10 to 99 do
begin
if ((i mod 2)<>0) and ((i mod 13)<>0) then
a:=a+1;
end;
writeln (a);
end.
вроде так
program massive;
var i,j,s,min,n:integer;
A:array [1..10000] of integer;
begin
readln(n);
for i:=1 to n do
readln(A[i]);
min:=999;
for i:=1 to n do
if A[i]<min then begin
min:=A[i];
s:=i;
end;
for j:=2 to i do
if j mod 2=0 then A[j]:=0;
for i:=1 to n do
write(A[i],' ');
end.