Регистрация
Helen4647
31.07.2021 19:16
Информатика
Есть ответ 👍

Дан массив х(n, n). найти количество положительных элементов матрицы, лежащих на главной диагонали (элементы главной диагонали с индексами (1,1), (2,2) и т.д.) паскаль

283
405
Посмотреть ответы 2

Ответы на вопрос:

Madonkg
Madonkg
4,8(9 оценок)
Procedure tform1.button1click(sender: tobject); var   i, k : integer;   x : array [1..10,1..10] of integer; begin   k : = 0;   for i: =1 to 10 do   begin     x[i,i] : = random(100)-50;     if (x[i,i]> 0) then       inc(k);   end;   label1.caption : = 'количество положительных элементов = ' + inttostr(k); end;
nigaic
nigaic
4,6(100 оценок)
// pascalabc.net 3.2, сборка 1383 от 09.02.2017 // внимание! если программа не работает, обновите версию! begin   var a: =range(90,500).where(x-> x mod 92=0);   write('сумма кратных 92 на [90; 500]: ',a.sum);   writeln(', произведение: ',a.aggregate(int64(,y)-> x*y)) end. результат: сумма кратных 92 на [90; 500]: 1380, произведение: 790897827840

Популярно: Информатика