Delphi заготовки

{
Сформировать линейный массив из 30 случайных чисел в интервале от -16 до 16.
1.Найти среднее арифметическое положительных элементов.
2.Все элементы, кратные 3 заменить удвоенным значением этих элементов и скопировать в новый массив.
3. В новом массиве найти номер и значение минимального элемента. Все результаты вывести на экран
}
uses crt;
const MaxNcount=1000; // размер массива
type
  TarrayInt=array [1..MaxNcount] of integer;


var a,b:TArrayInt; // массив элементов
    Acount:integer; // размер массива А
    Bcount:integer;  // размер массива B

//1) заполнение массива случайными числами из заданного интервала;
procedure CreateArray(var a:TArrayInt;Ncount:integer);
var i:integer;
begin
randomize;// инициализация
  for i:=1 to ncount-1 do  a[i]:=-16+random(16+16);
end;

Function ShowArray(const a:TArrayInt;Ncount:integer):string;
var s:string;
   ... Читать дальше »

{
задача:
  сформировать линейный массив из 12 случайных чисел в интервале
от -15 до 15.
1. Найти кол-во элементов, больших 10 и скопировать в новый массив.
2. Все отрицательные элементы заменить утроенным значением этих элементов,
3. найти среднее арифметическое значение отрицательных элементов.
4. В новом массиве найти сумму элементов с нечетными номерами. Все результаты вывести на экран.
}
uses crt;
const MaxNcount=1000; // размер массива
type
  TarrayInt=array [1..MaxNcount] of integer;


var a,b:TArrayInt; // массив элементов
    Acount:integer; // размер массива А
    Bcount:integer;  // размер массива B

//1) заполнение массива случайными числами из заданного интервала;
procedure CreateArray(var a:TArrayInt;Ncount:integer);
var i:integer;
begin
randomize;// инициализация
  for i:=1 to ncount-1 do  a[i]:=-15+random(15+1+15);
end;
//2) вывод массива ... Читать дальше »

задача
1.найти самую короткую группу нулей в строке
2.подсчитать количество символов в самой длинной группе,в строке,состоящей из групп нулей и едениц
3.подсчитать количество едениц,в группах с нечетным количеством символов
4.вывести на экран числа строки,состоящей из произвольных десятичных цифр
5.вывести на экран,четные числа строки
6.вывести на экран порядковый номер слова максимальной длинны
7.подсчитать количество символов в самой короткой группе,в строке,состоящей из групп нулей и едениц
8.вывести на экран порядковый номер слова,минимальной длинны
9.заменить в каждом слове первую букву на прописную
10.поменять местами первую и последнюю букву в каждом слове
11.вывести на экран только строчные латинские буквы
12.удалить первую букву каждого слова
13.вывести на экран нечетные числа строки
14.вывести на экран только прописные латинские буквы
15.вывести на экран самую короткую группу едениц в строке
16.удалить последнюю букву кажого сл ... Читать дальше »

{Дан файл вещественных чисел, содержащий элементы прямоугольной
 матрицы (по строкам),
причем первый элемент файла содержит количество столбцов 
матрицы.Создать новый файл той же структуры, 
содержащий матрицу, 
транспонированную к исходной.
 }
 
 

uses crt;
const
 maxcount = 100; // максимальное число элементов матрицы

type
Tmarix=record // структура файла
 col:integer;
 massiv:array [1..maxcount,1..maxcount] of real;
end;

var
 m:Tmarix;

// создание матрицы
Procedure CreateMas(var a:Tmarix; col:integer);
var x,y:integer;
begin
 a.col:=col;
 for x:=1 to col do
 for y:=1 to col do a.massiv[x,y]:=1+random(150);
end;
// сохранить матрицу в массив
Procedure SaveMasivToFile(a:Tmarix;Filename:string);
var x,y:integer;
 f:file of real;
 buf:re
		
		... 
		
			Читать дальше »