Const n=15;
var a:array[1..n] of integer;
i,k,max:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(33)-15;
write(a[i]:4);
end;
writeln;
k:=0;
max:=-999;
for i:=1 to n do
begin
if a[i] mod 2 = 0 then k:=k+1;
if (a[i]>max)and(a[i]<0) then max:=a[i];
end;
writeln('k = ',k,' max = ',max);
end.
Пример:
Массив A:
14 5 5 7 -10 -13 -3 10 5 -2 -4 -5 3 -10 -14
k = 7 max = -2
Var
n:integer;
begin
readln(n);
if n > 10 then writeln(n, ' > ', 10);
if n < 10 then writeln(n, ' < ', 10);
if n = 10 then writeln(n, ' = ', 10);
<span>end.</span>
Ответ:
А это какой класс????????????
Program D1KPxx3;
uses crt;
var
i:integer;
min,rez:real;
b:char;
label 1,2;
begin
1:write('Введите время разговора');
read(min);
writeln('Введите номер дня недели');
read(i);
if (i=6) or (i=7) then
begin
rez:=((min*5.52)-(min*0.2));
write('Стоимость разговора с учетом скидки равна: ',rez);
goto 2;
end
else
rez:=min*5.52;
write('Стоимость разговора равна: ',rez);
2:writeln('Ещё?? Y/N');
readln(b);
if b='Y' then
goto 1;
if b='N' then
write('Пока!');
<span>end.</span>