Program asd; USES crt; var a,b,c,min:real; BEGIN clrscr; Writeln('Vvedite x: '); Readln(a); Writeln('Vvedite y: '); Readln(b); Writeln('Vvedite z: '); Readln(c); min := a; if b < min then min := b; if c < min then min := c; Writeln('Minimalnoe chislo: ',min); Readln; END.
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println; a.Where((x,i)->i.IsOdd).Println; // для №1 Writeln('Сумма =',a.Where((x,i)->i.IsEven).Sum); // для №2 end.
USES crt;
var a,b,c,min:real;
BEGIN
clrscr;
Writeln('Vvedite x: ');
Readln(a);
Writeln('Vvedite y: ');
Readln(b);
Writeln('Vvedite z: ');
Readln(c);
min := a;
if b < min then min := b;
if c < min then min := c;
Writeln('Minimalnoe chislo: ',min);
Readln;
END.