Удвоить трехзначное число, введенное с клавиатуры, если оно содержит в своей записи хотя бы одну единицу, и возвести в квадрат в другом случае. если введенное число не трехзначное, вывести сообщение об ошибке.

S: string; i, k, a: integer; begin readln(s); if length(s)=3 then begin for i: =1 to length(s) do if s[i]='1' then begin val(s, a); a: =a*2; end else begin val(s, a); a: =a*a; end; end else writeln('ошибка'); writeln(a); readln; end.

var

  a: array [1..10] of integer;

  i, max: integer;

 

begin

  max: = 0;

  write('исходный массив:   ');

  for i: = 1 to 10 do

  begin

    a[i]: = random(10);

    write(a[i], '   ');

    if (i mod 2 = 0) and (a[i] > max) then

      max: = a[i];

  end;

  writeln;

  writeln('максимальный элемент массива среди элементов с четными индексами: ', max);

end.

если что не понятно - спрашивай.    

var 

  a: array [1..10] of integer;

  i, min, minindex: integer;   {min - значение минимального элемента массива, minindex - индекс минимального элемента массива}

 

begin

  min: = 20;

  write('исходный массив:   ');

  for i: = 1 to 10 do

  begin

    a[i]: = random(19) + 1;

    write(a[i], '   ');

    if a[i] < min then 

    begin

      min: = a[i];  

      minindex: = i;

    end;

  end;

  writeln;

  write('минимальный элемент массива:   a[', minindex, '] = ', min);

  writeln;

end.