Определите алгоритм преобразования и напишите программу

[0001]

Задание следущее:
Определите алгоритм преобразования и напишите программу, которая:

1) формирует массив из заданного количества случайных целых чисел в заданном диапазоне и выводит элементы массива на экран;

2) по определенному вами алгоритму преобразовывает этот массив и выводит на экран элементы преобразованного массива.

3) производит заданные вычисления и выводит результат на экран.

Указания:

- преобразование массива оформить в виде процедуры;

- заданные вычисления оформить в виде функции;

- все выводы на экран осуществлять в основной программе.

[Андрей.12]

Пиши stim-lg@rambler.ru договаримся

[Stilet]

формирует массив из заданного количества случайных целых чисел в заданном диапазоне и выводит элементы массива на экран;

Подойдет такое?

using System;

namespace Project1
{
	/// <summary>
	/// Summary description for Class1.
	/// </summary>
	class Class1
	{
		/// <summary>
		/// The main entry point for the application.
		/// </summary>
		[STAThread]
		static void Main(string[] args)
		{
			int [] a=new int[10];
			Random r=new Random();
			for(int i=0;i<a.Length;i++){
			 a[i]=r.Next(10);
			 Console.Write("{0}\n",a[i]);
			}
			Console.ReadLine();
		}
	}
}

[0001]

Язык Турбо Паскаль.Массив L = (–2, 6, –8, 9, –5, 12, 0) преобразован к виду L = (1, 9, –5, 12, –2, 15, 3). Размер массива L - 36 элементов из диапазона [–31,31]. Вычислить сумму тех элементов преобразованного массива, которые находятся в диапазоне [–8, 25]
uses crt;
const kol_el=36;
type mas=array [1..kol_el] of integer;
var T:mas;
Procedure Preobr(var a:mas);
var i:integer;
begin
for i:=1 to kol_el do
a[i]:=a[i]+3;
end;
Function Sum(b:mas):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to kol_el do
if (b[i]>=-8) and (b[i]<=25) then
s:=s+b[i];
sum:=s;
end;
var i:integer;
Begin
clrscr;
Randomize;
for i:=1 to kol_el do begin
T[i]:=Random(63)-31;(Пишет что Арифметическое переполнение?????)
write(T[i]:4);
end;
Preobr(T);
writeln;
writeln;
for i:=1 to kol_el do
write(T[i]:4);
write(#13,#10,#10,'Summa elementov=',Sum(T));
End.

[0001]

Плачу 50 руб,кто доделает на вебмани

[mihali4]

Как со зрением-то ? Небось, проблемы, раз не видишь раздела "Фриланс" и флудишь где попало...

[0001]

Сообщение от mihali4

Как со зрением-то ? Небось, проблемы, раз не видишь раздела "Фриланс" и флудишь где попало...

ну помогать,никто не хочет,вот я предложил.А так не хотел