Порядок выполнения работы. С помощью Проводника Windows на рабочем логическом диске создайте папку (например, Ivanov-5) для размещения файлов проекта

С помощью Проводника Windows на рабочем логическом диске создайте папку (например, Ivanov-5) для размещения файлов проекта.

Создайте проект «Console Application» консольного приложения Delphi.

Сохраните файлы проекта в папку Ivanov-5 под именем Ivanov5.

Отредактируйте текст главной программы для задачи 1.

PROGRAM Ivanov5;

{$APPTYPE CONSOLE}

USES

SysUtils;

CONST

n=5; // количество элементов массива

TYPE

ar=array[1..n] of real; // объявление типа массива

VAR

a:ar; // исходный массив А

s:real; // сумма отрицательных элементов

i:integer; // счетчик элементов

begin

// Ввод исходных данных

WriteLn('Type ', n, ' real elements of array:');

for i:=1 to n do

Read(a[i]);

// Выполнение задачи

s:=0; // начальное значение суммы

for i:=1 to n do // цикл перебора элементов массива

if a[i]<0 then // выборка отрицательных элементов

s:=s+a[i]; // суммирование

// Вывод результата

if s=0 then

WriteLn('There are NO negative elements')

Else

WriteLn(' S=',s:8:4);

WriteLn('***** Press <ENTER> to finish *****');

Readln; // задержка экрана

Readln;

END.

Запустите приложение на выполнение (горячая клавиша F9). Консольное окно с результатами расчета для задачи 1 выглядит так:

Сохраните и закройте проект Ivanov5.

Создайте новый проект консольного приложения Delphi и сохраните его файлы в папку Ivanov-5 под именем Ivanov5_2.

Отредактируйте текст главной программы для задачи 2.

program Ivanov5_2;

{$APPTYPE CONSOLE}

uses

SysUtils;

Const

m=3; // количество строк и столбцов

Type

mas=array[1..m,1..m] of integer; // тип массива

Var

A:mas; // массив А

R:integer; // разность

Amax:integer; // максимальный элемент

Amin:integer; // минимальный элемент

i,j:integer; // счетчики по строкам, столбцам

begin

// Ввод исходных данных

WriteLn('Type integer elements of array A:');

for i:=1 to m do

for j:=1 to m do Read(A[i,j]); // поэлементное чтение массива

Amin:=A[1,1]; // начальное значение минимального элемента

Amax:=A[1,1]; // начальное значение максимального элемента

// поиск минимального и максимального элементов

for i:=1 to m do

for j:=1 to m do begin

if A[i,j]<Amin then Amin:=A[i,j];

if A[i,j]>Amax then Amax:=A[i,j]

end;

R:=Amax-Amin; // разность

WriteLn('-----------------------------------');

WriteLn(' Result: R=',R:4);

WriteLn('***** Press <ENTER> to finish *****');

Readln; // задержка экрана

Readln;

end.

Запустите приложение на выполнение (F9). Консольное окно с результатами расчета для задачи 2 выглядит так:

Варианты заданий