Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
x : array [1..15] of integer;
i : integer;
min : integer;
kol_nol : integer;
begin
kol_nol : = 0;
for i: =1 to 15 do
write ("введите элемент массива: ");
readln(x[i]);
end;
min : = x[1];
for i : = 0 to 15 do
if (x[i] > 0) then
if (x[i] < min) then
min : = x[i];
if (x[i] = 0) then
inc(kol_nol);
writeln(min);
writeln(kol_nol);
1)
var a,b,c,d: real;
read(a,b);
c: =(a+b)/2;
d: =2*a*b;
if a> b then begin
a: =d;
b: =c;
if a< b then begin
a: =c;
b: =d;
writeln(a,' ',b);
end.
2)
var a,b: integer;
if (a< 1) or (a> 31) then writeln(' день введен неправильно');
if (b< 1) or (b> 12) then writeln(' месяц введен неправильно');
3)
var a,b,c: real;
read(a,b,c);
if (a> b)and(a> c)then writeln(a);
if (b> a)and(b> c)then writeln(b);
if (c> b)and(c> a)then writeln(c);
Популярные вопросы