Программа обрабатывает одномерный целочисленный массив Dat: i 1 2 3 4 5 6 7 8 9 10 Dat[i] 70 80 90 100 80 40 40 70 80 90 Определите, какие числа будут выведены в результате выполнения следующего фрагмента программы: k := 1; m := dat[k]; for i := 2 to 10 do if dat[i] < m then begin m := dat[i]; k := i; end; writeln('m = ', m); writeln('k = ', k);

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

1)

procedure Add(a,b:integer; var r:integer);
begin
  r:=a+b
end;

begin
  var (x,y):=ReadInteger2('Введите два целых числа:');
  var z:integer;
  Add(x,y,z);
  Writeln('Их сумма равна ',z)
end.

Пример
Введите два целых числа: 18 142
Их сумма равна 160

2)

function Min3(a,b,c:integer):=Min(a,Min(b,c));

begin
  var (i,j,k):=ReadInteger3('Введите три целых числа:');
  Writeln('Минимальное равно ',Min3(i,j,k))
end.

Пример
Введите три целых числа: 35 -4 41
Минимальное равно -4

Panda Security - это один из мировых лидеров в производстве решений IT-безопасности. Продукты Panda переведены на 23 языка, ими пользуются миллионы клиентов более чем в 200 странах мира. Panda Security стала первой компанией в секторе информационной безопасности, которая использовала мощность «облачных» вычислений в своей технологии Коллективный разум. Эта инновационная модель безопасности автоматически анализировать и классифицировать тысячи новых образцов вредоносных программ каждый день, гарантируя корпоративным и домашним пользователям самую эффективную защиту от Интернет-угроз с минимальным влиянием на производительность системы. Panda Security имеет 56 офисов во всем мире со штаб-квартирами во Флориде (США) и Мадриде (Испания).