РЕШИТЕ(ИНФОРМАТИКА 10 КЛАС)

готово

Объяснение:

Задача 1

var

 n: integer;

begin

 Write('Введите чило >>> ');

 ReadLn(n);

 if n mod 2 = 0 then

   WriteLn('четное')

 else

   WriteLn('нечетное')

end.

Задача 2

var

 n: integer;

begin

 Write('Введите год >> ');

 ReadLn(n);

 if (n mod 100) = 0 then

 begin

   if (n div 100) mod 4 = 0 then

     WriteLn(n, ' год - високосный')

   else

     WriteLn(n, ' год - не високосный');

 end

 else

   if n mod 4 = 0 then

     WriteLn(n, ' год - високосный')

   else

     WriteLn(n, ' год - не високосный');

end.

/* gnu gcc */
#include <iostream>
#include <cstdlib>
using namespace std;

int main()
{
int x[10];
int y[20];
int z[25];

int xs=0, ys=0, zs=0;
// Заполняем массивы случайными числами до 100
srand(time(0));
cout <<"Массив X(10):" <<endl;
for(int i=0; i<10; ++i)
{
x[i] = rand() % 100;
cout <<x[i] <<" ";
}
cout <<endl;
cout <<"Массив Y(20):" <<endl;
for(int i=0; i<20; ++i)
{
y[i] = rand() % 100;
cout <<y[i] <<" ";
}
cout <<endl;
cout <<"Массив Z(25):" <<endl;
for(int i=0; i<25; ++i)
{
z[i] = rand() % 100;
cout <<z[i] <<" ";
}
cout <<endl;

// Считаем суммы элементов массивов
for(int i=0; i<10; ++i)
xs+=x[i];
for(int i=0; i<20; ++i)
ys+=y[i];
for(int i=0; i<25; ++i)
zs+=z[i];
cout <<endl;

// Выводим суммы элементов на экран
cout <<"Сумма элементов массива X(10) = " <<xs <<endl;
cout <<"Сумма элементов массива Y(20) = " <<ys <<endl;
cout <<"Сумма элементов массива Z(25) = " <<zs <<endl;

return 0;
}