Namespace Вывод {
class Program {
static void Main(string[] args)
{
int n = 10;
int[] Mass = new int[n];
Random R = new Random();
for (int i = 0; i < n; i++) {Mass[i] = R.Next(0, 30);} Console.Write("\n--------- Массив -------------\n");
for (int i = 0; i < n; i++)
{ Console.Write(Mass[i] + " "); }
Console.ReadKey();
}<span> }
Что может быть проще?</span>
А чем тут помочь , если тут все уже решено?
Ответ:
вообще,там очень большая цифра получится ,но если сокр всё ,то 5
Var
tab: array[1..4, 1..5] of integer;
i, j, k: integer;
begin
k := 0;
for i := 1 to 4 do
for j := 1 to 5 do
begin
read(tab[i][j]);
if tab[i][j] mod 2 = 0 then k := k + 1;
end;
writeln(k);
end.