1. составьте программу вывода на экран таблицы умножения на 3 (от 0 до n исходные данные (n ) вводятся с клавиатуры.

Var n,i:integer;
begin
readln(n);
for i:=0 to n do
writeln('3 * ',i,' = ',3*i);
end.

#include <iostream>

#include <conio.h>

using namespace std;

int main()

{

setlocale(LC_ALL, "Russian");

const int SIZE = 20;

int Arr[SIZE] = {};

int Summa = 0;

cout << "Введите числа" << '\n';

for(int i = 0; i < SIZE; i++)

{

 cin >> Arr[i];

 if ((Arr[i] < 1500) && (Arr[i]>-1500)) //Проверяем числа в массиве больше,меньше 1500,-1500.

 {

  if (Arr[i]==0) // Проверяем встретиться ли нам 0.

  {

   break;//если встретился 0 то выходим из этого условия, а потом и из цикла.

  }

  if (Arr[i] % 5 == 0) // Проверяем числа на кратность 5. Если кратно то

  {

   Summa += Arr[i]; // Складываем все что кратно 5 в переменную Summa.

  }

 }

 else //Этот else относиться к первому if где идет проверка больше,меньше 1500,-1500.

 {

  i--; // декремент не дает нам дальше заполнять массив покуда не введем число

       // входящее в диапазон [-1500;1500].

  cout << "Ваше число по модулю превышает 1500 " << endl; // оповещяем о том что введено неверное число

 }

 

}

cout << "Сумма всех чисел, кратных 5 = " << Summa << endl;

_getch();// это просто чтобы окно не закрывалось, можно и в самом проекте это сделать.

return 0;

}

Объяснение:

Пишите язык, который вам нужен. Пишу на наиболее вероятном: Pascal.
program massiv;

uses crt;

var A:array[1..10] of integer; s: real; i,k, p: integer;

begin

clrscr;

randomize;

writeln ('задан массив:');

for i:=1 to 10 do

begin

a[i]:=random(100); {задание массива}

s:=s+a[i];{ считаем сразу сумму элементов}

write (a[i]:4); {вывод на экран}

end;

s:=s/10;

for i:=1 to 10 do

if a[i]>s then p:=p+1;

if p mod  2= 0 then {проверка на четность}

                          for i:=1 to 10 do a[i]:=a[i]+i

                             else 

                                        begin

                                        k:=a[5];

                                        a[5]:=a[6];

                                        a[6]:=k; {обмен значений а5 и а6. если считать их центральными элементами, через третью переменную}

                                        end;

writeln; {дабы у вас ничего не слиплось}

for i:=1 to 10 do write (a[i]:4); {вывод полученного массива на экран} 

end.