1.Найти сумму всех не отрицательных чисел кратных 5 в промежутке от 1 до 100 2.Найти...

Question

1.Найти сумму всех не отрицательных чисел кратных 5 в промежутке от 1 до 100
2.Найти сумму элементов двумерного массива, расположенной на главной плоскости массив 10;10

Comments

что за главная плоскость массива?

Answer 1

1)Program A1;
var
a,i:integer;
begin
a:=0;
for i:=1 to 100 do if (i mod 5=0)and(i>0) then a:=a+i;
writeln(a);
end.
2)Program A2;
var
a: array [1..10,1..10] of integer; b,i,j:integer;
begin
writeln('Vvedi massiv');
for i:=1 to 10 do for j:=1 to 10 do readln(a[i,j]);
b:=0;
for i:=1 to 10 do b:=b+a[i,i];
writeln(b);
end.