1 кнопка панели инструментов (Открыть) предназначена для того, что бы открывать файлы, проекты. 2 кнопка панели инструментов (Сохранить проект) предназначена для того, что бы сохранять проекты. 3 кнопка панели инструментов (Добавить файл) предназначена для того, что бы добавить файл. 4 кнопка панели инструментов (Добавить текст) предназначена для того, что бы добавлять текст. 5 кнопка панели инструментов (Добавить пустой) предназначена для того, что бы добавлять пустое место в проекте. 6 кнопка панели инструментов (Запись) предназначена для того, что бы записывать проект.
Будет выведено: sr=4.5
Объяснение:
Расписал подробно и с комментариями.
program a78; //Название программы
var i,s:integer; sr:real; //Объявление переменных
const a:array [1..6] of integer = (1,7,3,6,0,10); //объявление массива
begin //тело программы
s:=0; //присваиваем s к 0, своеобразный буфер
for i:=1 to 6 do //для значений i от 1 до 6 выполняй следующие действия:
s:=s+a[i]; //тело цикла, то что будет циклиться и выполняться
sr:=s/6; //тело цикла, то что будет циклиться и выполняться
writeln('sr=',sr); //вывод значения
end. //конец программы
const
n=5;
m=6;
var
a:array[1..n,1..m]of integer;
i,j,s,p,min,max:integer;
begin
s:=0;
p:=0;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(10);
min:=a[1,1];
max:=min;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j]:3);
if a[i,j]>max then max:=a[i,j];
if a[i,j]<min then min:=a[i,j];
end;
writeln
end;
for i:=1 to n do
begin
if p>2 then break;
for j:=1 to m do
begin
if p>2 then break;
if a[i,j]=max then p:=p+1;
if a[i,j]=min then p:=p+2;
if p>0 then s:=s+a[i,j];
end;
end;
writeln('S=',s)
end.