Задать вопрос
30 августа, 02:44

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

2. Найти сумму элементов двумерного массива, расположенной на главной плоскости массив 10; 10

+3
Ответы (1)
  1. 30 августа, 03:16
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «1. Найти сумму всех не отрицательных чисел кратных 5 в промежутке от 1 до 100 2. Найти сумму элементов двумерного массива, расположенной на ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы