Можете перевести с паскаля в c++ var a, n, i, sum, c, min: integer; begin sum := 0; c := 0; min := 10001; - id1735568720221013 от savoian82ozq31t 13.10.2022 08:05

Question

Информатика: Можете перевести с паскаля в c++ var a, n, i, sum, c, min: integer; begin sum := 0; c := 0; min := 10001; read(n); for i := 1 to n do begin read(a); sum := sum + a; c := c + 1; if(a min) and (a mod 4 0) then min := a; end; if(sum mod 4 = 0) and (min 10001) then begin sum := sum - min; c := c - 1; end; if(sum mod 4 = 0) then begin write(0); exit; end; writeln(c, , sum); end.

savoian82ozq31t · Accepted Answer

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию! №1 begin   var a:=ArrRandom(ReadInteger( n= ),-50,50); a.Println;   Writeln( Количество отрицательных значений ,a.Where(t- t 0).Count); end. Пример n= 15 3 39 3 2 43 43 -37 -2 -50 3 -25 15 -7 4 21 Количество отрицательных значений 5 №2 begin   var (m,n):=ReadInteger2( Количество строк и столбцов в массиве: );   Writeln( *** Исходный массив *** );   var a:=MatrRandom(m,n,-99,99);   a.Println(4);...

MOGZ ответил