<span>Program al;
var a: array[1..100] of integer;
buf:integer;
i,n,min:integer;
begin
writeln('n=');
readln(n);
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
min:=a[1];
for i:=1 to n do
if a[i]<min then min :=a[i];
writeln('mn=', min);
readln;
end.</span>
Программы для PascalABC.Net
Для древних турбопаскалей требуется добавить две строки: первым оператором поставить
Uses Crt;
а предпоследним
Readkey;
var
i, n, s: integer;
begin
Write('Введите количество элементов n: '); Read(n);
s := 0;
for i := 1 to n do s := s + i;
Writeln('Сумма 1+2+...+', n, ' = ', s)
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов n: 10
Сумма 1+2+...+10 = 55
var
i, n: integer;
s:real;
begin
Write('Введите количество элементов n: '); Read(n);
s := 0;
for i := 1 to n do s := s + 1/i;
Writeln('Сумма 1+1/2+...+1/', n, ' = ', s)
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов n: 8
Сумма 1+1/2+...+1/8 = 2.71785714285714
все груши большие, значит яблок больших 32-17=15
25+17=42 (всего плодов) ,а из них 28 желтых, значит 42-28=14 (зеленых),а
зеленых яблок на 2 больше, чем зеленых груш, значит яблок зеленых 8, а груш 6
15-8=7 (зеленых яблок)
ответ 7
Var y,x: Integer;
begin
writeln('Введите x');
readln(x);
if (x>3) then y:=3*x-1
else y:=10;
writeln('Ответ, y = ', y);
end.