<span>уборки мусора во дворе; дворник
</span>перевозки пассажиров: водитель
выдачи заработной платы ; кассир
<span>приема экзаменов; </span> екзаменатор
сдачи экзаменов : студент
<span> обучения детей в школе: учитель
</span>Система команд исполнителя (СКИ)- это вся совокупность команд, которые исполнитель умеет выполнять.. Среда исполнителя- это обстановка, в которой функционирует исполнитель.
Например, дворник- совокупность команд: мести двор, улицу, убирать мусор; среда исполнения : двор, улица. Также и по другим специальностям.
var a: array [1..100] of integer;
i,n,min,max:integer;
Begin
read(n);
for i := 1 to n do
read(a[i]);
min:=a[1];
max:=a[1];
for i:= 1 to n do begin
write(a[i],' ');
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln(min,max);
End.
Писал на Паскале.
Нумерация элементов массива начинается с 1, тогда что там заменять, если нужно заменить элементы с отрицательными номерами?
var a: array [1..155] of real;
begin
for var i := 1 to 155 do
read(a[i]);
for var i := 1 to 155 do
write(a[i], ' ');
end.
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(15,1,100); a.Println;
var k:=0;
for var i:=0 to 14 do
if a[i] mod 7=0 then begin
k+=1; WritelnFormat('A[{0}]={1}',i+1,a[i])
end;
if k=0 then Writeln('Заданных элементов в массиве нет')
end.
<u>Пример</u>
33 15 28 79 56 50 95 24 41 4 64 48 29 27 72
A[3]=28
A[5]=56