// PascalABC.NET
begin
var n := ReadInteger('n =');
var a := MatrRandom(n, n, -99, 99);
a.Println;
Writeln;
a := Transpose(a);
a.Println
end.
Объяснение:
Я не понимаю значение фразы "закомментировать логику", но в любом случае, в решении никакой "логики" нет. Поскольку тут она не нужна.
Первое задание:
1) 3
2) 6
3) 5
Второе задание:
1) 1
2) 3
Третие:
//Язык программирования java
package com.niksonbinsk;
import java.util.ArrayList;
import java.util.Scanner;
public class Main {
public static void main(String[] args) {
int space_left = 0;
int count = 0;
Scanner s = new Scanner(System.in);
ArrayList<Integer> str = new ArrayList<>();
while(space_left != 30){
System.out.println("Enter next num:");
str.add(s.nextInt());
space_left++;
}
for(int i =0;i<30;i++){
if(str.get(i) % 2 == 0){
count++;
}
}
System.out.println(count);
}
}
Объяснение:
Пример работы: