3. Зведення (узгодження) Перетворення (узгодження) типів виконуються, якщо операнди, яківходять до виразу, мають різні типи. Зведення (узгодження) типівздійснюється автоматично за правилом: менш точний тип зводиться добільш точного. (операнди зводяться до типу того операнда, котрий маєбільший розмір) Воно буває двох типів:int a=2;float b=3.6;int c;Явне зведенняНеявне зведення• c=a*b// 3.8*2=7.6c=7;c=(int) b*a /3*2=6• c=(int) (b*a) //3.8*2=7.6=7Рорзв'яжіть прикладиПриклад 1. Знайдіть суму двох чисел.Приклад 2. Знайдіть периметр квадрата.Приклад 3. Знайдіть середнєарифметичне чотирьох чисел.​

1.

#include <iostream>

using namespace std;

int main()

{

int a=4, b = 6;

cout<<"Сума чисел a("<<a<<") та b("<<b<<") = " << a+b;

return 0;

}

2.

#include <iostream>

using namespace std;

int main()

{

float a, p;

cout<<"Введіть сторону квадрата: ";

cin>>a;

p = 4 * a;

cout<<"Периметр квадрата зі стороною "<< a << " дорівнює " << p;

return 0;

}

3.

#include <iostream>

using namespace std;

int main()

{

int a,b, c, d;

float result;

cout<<"Введіть перше число: ";

cin>>a;

cout<<"Введіть друге число: ";

cin>>b;

cout<<"Введіть третє число: ";

cin>>c;

cout<<"Введіть четверте число: ";

cin>>d;

result = (a+b+c+d)/4;

cout<<"Середнє арифметичне 4 чисел: "<< result;

return 0;

}

У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы):
uses Crt;
const n = 10;
var A: array [1..n] of integer; 
        i: integer;
begin 
ClrScr; 
Randomize; 
WriteLn ( ' Massiv I: '); 
for i:=1 to n do 
    begin     
          A[i] := 1+random(n);  
          Write (A[i]:4); 
    end; 
WriteLn; WriteLn ( ' Massiv II: '); 
for i:=1 to n do 
    begin   
           if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];     
           Write (A[i]:4); 
   end;
ReadLn;
end.     

Program q1;
uses crt;
const n=10;
var i,j:integer;
mass:array [1..n] of integer;
countNum:integer; // переменная для хранения количества нечетных чисел
proizv:integer; // переменная для хранения произведения нечетных чисел
BEGIN
proizv:=1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0
{создание последовательности n целых чисел}
Writeln('Случайные целые числа: ');
for i:=1 to n do
begin
mass[ i ]:=random(9)+1; //присваеваем переменной случайное значение от 1 до 10
write(inttostr(mass[ i ])+', ');
end;
{Вычисление произведения и количества нечетных чисел}
for i:=1 to n do
if mass[ i ] mod 2 <> 0 then //проверяем не четное-ли число, если да, то.. .
begin
inc(countNum); //увеличиваем на один кол-во нечетных чисел
proizv:=proizv*mass[ i ]; // высчитываем произведение
end;
{Вывод результатов}
writeln;
writeln('Всего нечетных чисел: '+inttostr(countNum));
writeln('Их произведение: '+inttostr(proizv));
END.