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

Ответы 1

  • 1)Program A1;vara,i:integer;begina:=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;vara: array [1..10,1..10] of integer; b,i,j:integer;beginwriteln('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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years