program number1;
var a: array [1..5] of integer;
i,min,max: integer;
Begin
writeln('Введите 5 значений массива');
for i:=1 to 5 do
readln(a[i]);
min:=a[1];
max:=a[1];
for i:=1 to 5 do
Begin
if (a[i]>=max) then max:=a[i];
if (a[i]<=min) then min:=a[i];
End;
for i:=1 to 5 do
Begin
if max=a[i] then
Begin
writeln('Максимальное значение: ',a[i],' [',i,']');
max:=a[i];
End;
if min=a[i] then
Begin
writeln('Минимальное значение: ',a[i],' [',i,']');
min:=a[i];
End;
End;
writeln('Среднее арифметическое: ',(min+max)/2);
End.
1. Средства содержащиеся в пункте файл:
1) Создать - очистка окна редактирования и подготовка к вводу нового текста. При этом его файл получает имя Документ.
2) Открыть - открытие и загрузка файла с его поиском в диалоговом окне.
4)Сохранить как - запись файла на диск с заданным именем и заданной директорией (они задаются в появившемся диалоговом окне).
5)Сохранить - запись файла на диск с текущим именем в текущую директорию.
6) Печать - печать документа с установкой опций печати (выбор принтера и др.) в появившемся диалоговом окне.
Предварительный просмотр - просмотр страницы перед печатью (полезно для оценки расположения абзацев и встроенных рисунков).
7) Параметры страницы - установка параметров страницы, который позволяет задать размер и ориентацию страницы, величину полей.
Отправить - установка связи с электронной почтой для получения по ней документа или пересылки редактируемого документа по электронной почте.
8) Выход - завершение работы с редактором.
2. Меню Вставка порождает подменю с двумя командами:
1) Дата и время - вставка по месту расположения курсора строки с указанием текущего времени и даты.
2) Объект - открыть диалоговое окно Вставка объекта для включения в документ объекта, созданного другим приложением (рисунка, проигрываемого звукового файла и т.д.).
3. Задать параметры будущей печатной страницы можно в вкладке:
файл --> печать
// Внимание! Если программа не работает, обновите версию!
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
var b:=a.Rows.Select((x,r)->(x.Where(q->q<0).Count,r));
foreach var x in b do Write(x[1]+1,')',x[0],' ')
end.
Пример
Количество строк в матрице: 5
Количество столбцов в матрице: 8
*** Исходная матрица [5,8] ***
40 50 4 44 10 13 39 5
10 -41 -9 38 27 -9 34 9
8 29 37 -18 13 -41 23 -8
15 -49 -27 -31 -22 -4 46 -31
-36 36 34 -43 -33 -23 -24 -6
1)0 2)3 3)3 4)6 5)6
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var m:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Исходная матрица [',m,',',m,'] ***');
var a:=MatrRandom(m,m,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=0;
for var i:=0 to m-1 do s:=s+a[i,i];
Writeln('Ср.арифметическое равно ',s/m)
end.
Пример
Количество строк/столбцов в матрице: 5
*** Исходная матрица [5,5] ***
10 47 -5 -37 30
44 39 1 24 46
47 6 -26 -32 -16
-8 -49 18 15 22
4 4 -48 -36 -14
Ср.арифметическое равно 4.8