решить 2 задание. Условие Фано

var a: array [1..10] of integer;

var i,s: integer;

begin

randomize();

for i:=1 to 10 do

a[i]:=random(10)+1;

//В столбик

for i:=1 to 10 do

writeln(a[i]);

//В строчку

writeln();

for i:=1 to 10 do

write(a[i],' ');

//Среднее арифметическое

s:=0;

for i:=1 to 10 do

s:=s+a[i];

writeln();

writeln('Среднее арифметическое: ',s/10);

// количество элементов массива, значение которых равно 4

s:=0;

for i:=1 to 10 do

if (a[i]=4) then s:=s+1;

writeln('Количество элементов массива,',

' значение которых равно 4: ',s);

end.

#include <iostream>

using namespace std;

void main()

{

  setlocale(LC_ALL, "ru");

  int suit = 1;

  cout << "Укажите масть - ";

  cin >> suit;

  cout << endl;

  switch (suit)

  {

  case 1:

  {

      cout << "Пики";

  }

  break;

  case 2:

  {

      cout << "Трефы";

  }

  break;

  case 3:

  {

      cout << "Бубны";

  }

  break;

  case 4:

  {

      cout << "Червы";

  }

  break;

  default:

      cout << "Ошибка ввода";

      break;

  }

}

Подробнее - на -

Объяснение: