Составить программы в паскаль. 1. заполнить массив случайными числами из интервала от 0 до 50 и вывести его на экран. найти сумму его четных элементов. 2. заполнить массив элементами значения которых определяются согласно формулы: i*3-2, где i – индекс элемента.. диапазон изменения индексов: от 1 до 10

1.
Var
   a:array[1..20] of integer;
   b,i:integer;
Begin
  For i:=1 to 20 do
  Begin
     a[i]:=random(50);
     if (a[i] mod 2) = 0 then b:=b+a[i];
    write(a[i],' ');
  End;
  Writeln;
  Writeln('Сумма чётных элементов равна ',b);
End.

2.
  Var
     a:array[1..10] of integer;
     i:integer;
  Begin
     for i:=1 to 10 do
     Begin
        a[i]:=i*3-2;
        write(a[i],' ');
     End;
End.

Написал на С++

Объяснение:

#include <iostream>

#include <windows.h>//для русской раскладки

#include <cmath>//для sqrt и pow

using namespace std;

int main()

{

SetConsoleCP(1251);//подключаем русскую раскладку

SetConsoleOutputCP(1251);

float S = 0;//сумма первоначального вклада

float N1, N2;//ежемесячные процентные ставки

float resS = S;//сумма вклада спустя год

cout << "Введите сумму вклада: ";

cin >> S;

cout << "Введите значение ежемесячной процентной ставки в процентах: ";

cin >> N1;

cout << "Введите значение дополнительной процентной ставки по нечетный месяцам в процентах: ";

cin >> N2;

for (int i = 1; i < 13; i++)

{

 if (i % 2 == 0)

  resS = resS + resS * (N1 / 100);

 else

  resS = resS + resS * (N1 / 100) + S * (N2 / 100);

}

cout << "Сумма вклада спустя год будет равна: " << resS << endl;

system("pause");

return 0;

}

Відповідь:

if (a>b)

{

Console.WriteLine(" a — Більше число")

}

else

{

Console.WriteLine(" a — Більше число")

}

Пояснення:

Це приклад на C#

Коли а більше b, то вираз набирає значення true і виконується команда нижче if, а коли це значення хибне вираз (a>b) набирає значення false і виконується команда, яка нижче else.

Вроді так правильно.

Хоча, в принципі, можна використати тип даних (bool), який і містить значення лише True або false, але це вже інший приклад.

Моя тобі порада, загугли документацію по логічних виразах.