ответ:1) (1 б.) Верные ответы: 3;
2) (1 б.) Верные ответы: 4;
3) (1 б.) Верные ответы: 1; 2;
4) (1 б.) Верные ответы: 3;
5) (1 б.) Верные ответы: 1;
6) (1 б.) Верные ответы: 3;
7) (1 б.) Верные ответы: 4;
8) (1 б.) Верные ответы: 1;
9) (1 б.) Верные ответы: 3;
10) (1 б.) Верные ответы: 3;
11) (1 б.) Верные ответы: 2;
12) (1 б.) Верные ответы: 3;
13) (1 б.) Верные ответы: 4;
14) (1 б.) Верные ответы: 1;
15) (1 б.) Верные ответы: 1; 2;
16) (1 б.) Верные ответы: 1;
17) (1 б.) Верные ответы: 2;
18) (1 б.) Верные ответы: 1;
19) (1 б.) Верные ответы: 3;
20) (1 б.) Верные ответы: 2;
21) (1 б.) Верные ответы: 2;
Объяснение:
Program Min_Max;
uses crt;
var a:array[1..3] of integer;
i,min,max:integer;
begin
Textcolor (12);
For i:=1 to 3 do
Begin
A[i]:=random(100);
Write(A[i]:4);
End;
Writeln;
min:=a[1];
for i:=1 to 3 do
begin
if a[i]>max then
max:=a[i];
if a[i]<min then
min:=a[i];
end;
write(' ');
for i:=1 to 3 do
begin
if a[i]=max then
Begin
textcolor(12);
write(max:3);
End;
if a[i]=min then
Begin
textcolor(9);
write(min:3);
End;
if (a[i]<>min) and (A[i]<>max) then
Begin
textcolor(14);
write(A[i]:3);
End;
End;
readln;
end.
Объяснение:
begin
var a:=readARRreal('Вводите: ', readinteger('n ='));
var z:=readreal('z ='); var count:=0;
for var i:=0 to length(a)-1 do if a[i]>z then begin
a[i]:=z;
count+=1;
end;
writeln ('Кол-во замен: ', count);
a.Print;
end.