var
sum, temp, i: integer;
sr: real;
d_n: array[1..7] of string;
begin
sum := 0;
d_n[1] := 'Понедельник>>'; d_n[2] := 'Вторник>>'; d_n[3] := 'Среда>>'; d_n[4] := 'Четверг>>'; d_n[5] := 'Пятница>>'; d_n[6] := 'Суббота>>'; d_n[7] := 'Воскресенье>>';
for i := 1 to 7 do
begin
write(d_n[i]);
readln(temp);
sum += temp;
end;
writeln(sum / 7);
end.
5) Стоял красивый букет.
Принесли интересную книгу. Получали отличные знания
Var a=prompt("Введите число a");
var b=prompt("Введите число b");
var c=0;
c=(Number(a)+Number(b));
alert("Cумма чисел: "+c);
c=(Number(a)*Number(b));
alert("Произведение чисел: "+c); <span>
</span>
Program gt;
var b:array[1..100]of integer;
r,i,n,q,min,t:integer;
begin
read(N);
q:=0;
for i:=1 to n do
begin
read(b[i]);
if(b[i]>0)then begin
q:=q+1;
if(q=1)then begin
r:=i;
t:=b[i];
end;
end;
end;
min:=b[1];
for i:=2 to n do
if(b[i]<min)then min:=b[i];
for i:=1 to n do
begin
if(b[i]=min)then b[i]:=t;
if(i=r)then b[i]:=min;
write(b[i],' ');
end;
end.