1)сформировать массив каждый их них равен своему порядковому номеру умноженому на 6. найти среднее арифметическое всех элементов массива. паскаль.

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrGen(ReadInteger('n='), i -> (i + 1) * 6);

 a.Println;

 Println('Среднее', a.Average)

end.

n= 136 12 18 24 30 36 42 48 54 60 66 72 78Среднее 42

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

i:integer;  z:real;

begin

     for i:=1 to random(30) do

     begin

          a[i]:=i*6;

          z:=z+a[i];

          write(a[i],' ');

     end;

     writeln;

     write('Среднее арифметическое элементов массива=',z/50);

end.

Примечание: файл "file.txt" должен существовать в корневой папке программы. Если что-то не работает / работает не так, напишите об этом.

using System;

using System.IO;

namespace ConsoleApp1

{

   class Program

   {

       static void Main(string[] args)

       {

           const int c = 'С';

           string text;

           using (FileStream file = new FileStream($"file.txt", FileMode.Open))

           {

               using (StreamReader reader = new StreamReader(file, System.Text.Encoding.Default))

               {

                   text = reader.ReadToEnd();

               }

           }

           string pattern = @"\w+";

           System.Text.RegularExpressions.Regex reg = new System.Text.RegularExpressions.Regex(pattern);

           System.Text.RegularExpressions.MatchCollection mc = reg.Matches(text);

           using (FileStream file2 = new FileStream($"file2.txt", FileMode.OpenOrCreate))

           {

               using (StreamWriter writer = new StreamWriter(file2, System.Text.Encoding.UTF8))

               {

                   foreach (var el in mc)

                       if ((el.ToString()[0] == c) || (el.ToString())[0] == Char.ToLower((char)c))

                           writer.WriteLine(el);

               }

           }

       }

   }

}

Будь ласка, уточняйте на якій мові програмування потрібно написати програму. Для прикладу я напишу на С++. Но алгоритм такий буде будь-де.

int N = 0;

while(N != 0){ //Робота програми буде виконуватись до тих пір, поки не введуть 0. Цього нема в умові но на всякий напишу

cout << "Введіть N";

cin >> N;

cout << endl << endl; // Просто пробіли, для того щоб гарно виглядало

if( (N % 2) != 0) cout << N*N << " "; // Якщо число не парне тоді ми підносимо його до квадрату і записуєм. Якщо не парне, тоді нічого не робимо.

}