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 << " "; // Якщо число не парне тоді ми підносимо його до квадрату і записуєм. Якщо не парне, тоді нічого не робимо.
}
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