Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:ЕГЗ_2012_Поляков_май / answC2.doc
X
- •Ответы на задачи с2:
- •Var a:array[1..N] of integer;
- •I, i1, Sum: integer;
- •Var a:array[1..N] of integer;
- •Var a:array[1..N] of integer;
- •Var a:array[1..N,1..M] of integer;
- •Var a:array[1..N,1..N] of integer;
- •Var a:array[1..N,1..M] of integer;
- •Var a:array[1..N,1..N] of integer;
- •I, j, count: integer;
- •Var a:array[1..N,1..N] of integer;
- •I, j, count: integer;
- •Var a: array [1..N] of integer;
- •I, j: integer;
- •Var a: array [1..N] of integer;
- •I, j, X: integer;
- •Var a: array [1..N] of integer;
- •I, k, max, max2: integer;
- •Var a: array [1..N] of integer;
- •I, j, k: integer;
- •Var a: array [1..N] of integer;
- •I, l, lmax, s, smax: integer;
- •Var a: array [1..N] of integer;
- •I, k: integer;
- •Var a: array [1..N] of integer;
- •I, k, min, min2: integer;
- •Var a: array [1..N] of integer;
- •I, j, min, min2, s: integer;
- •Var a: array [1..N] of integer;
- •I, X, y: integer;
- •Var a: array [1..N] of integer;
- •I, X, y: integer;
- •Var a: array[1..N] of integer;
- •I, k, kMax: integer;
- •Var a: array [1..N] of integer;
- •I, max: integer;
- •Var a: array [1..N,1..N] of integer;
- •I, s: integer;
- •Var a: array [1..N] of integer;
- •I, min: integer;
- •Var a: array[1..N] of integer;
- •I,j,k,imax,kmax: integer;
- •Var a: array[1..N] of integer;
- •I, X, y: integer;
- •Var a: array[1..N] of integer;
- •I, j, min: integer;
- •Var a: array[1..N] of integer;
- •I, j, s: integer;
- •Var a: array[1..N] of integer;
- •I, j, min: integer;
- •21 Http://kpolyakov.Narod.Ru
Var a: array[1..N] of integer;
I, j, min: integer;
begin
for i:=1 to N do readln(a[i]);
min:= 1000;
for i:=1 to N do
if (99 < a[i]) and (a[i] < 1000) and (a[i] < min) then
min:= a[i];
if min = 1000 then
writeln('Нет трехзначных чисел')
else writeln(min);
end.
1 Не равные сумме отрицательных степеней числа 2.
2 Заметим, что в математике остаток – это всегда целое неотрицательное число.
21 Http://kpolyakov.Narod.Ru
Соседние файлы в папке ЕГЗ_2012_Поляков_май