С подятся с клавиатуры волит данные и исправляет ошибки нализует алгоритм в среде программирования Прочитайте - id1078420220220530 от lilyavenkova 30.05.2022 03:46

Question

Информатика: С подятся с клавиатуры волит данные и исправляет ошибки нализует алгоритм в среде программирования Прочитайте условие задачи. Задача: Даны стороны прямоугольника а и b. ределите площадь прямоугольника. нумеруйте блоки и впишите в блок-схему недостающие команды так, чтобы гучился верный алгоритм нахождения площади. Начало конец стите интегрированную среду программирования Scratch. Составьте скрипт Тения задачи «Даны стороны прямоугольника, найдите площадь ​

lilyavenkova · Accepted Answer

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('Количество строк (столбцов) в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Cуммы и число положительных элементов построчно:');
foreach var r in a.Rows do begin
    var s:=r.Where(t->t>0);
    Println(s.Sum,s.Count)
    end
end.

Пример
Количество строк (столбцов) в массиве: 6
*** Исходный массив ***
-98 -66 14 -63 78 -47
-7 59 -88 -7   6 -13
-89 26 29 78 -79 54
-99 55 -15 45 -14 -58
-59 -68 -93 55 63 -33
-72 -94 42 -89 -86 70

Cуммы и число положительных элементов построчно:
92 2
65 2
187 4
100 2
118 2
112 2

MOGZ ответил