1)даны натуральные числа n и k. определить k-ю справа цифру числа n. 2)дан целочисленный массив a. найти в нем два наименьших элемента.

153

485

Посмотреть ответы 2

Ответы на вопрос:

Дарья02031

Информатика

4,4(99 оценок)

{1 способ} var n,k: integer; s: string; begin writteln('введите n,k'); readln(n,k); str(n,s); {преобразуем число n в строку s} witeln(s[length(s)-k+1]); {length(s) -длина строки} end. {2 } cons nmax=20; var a: array [1..nmax] of integer; min1,min2,i,k1,k2,n: integer; begin writeln('введите кол-во элементов массива'); readln(n); writeln('введите элементы массива'); for i: =1 to n do read(a[i]); min1: =a[1]; k1: =1; {k1 -индекс первого минимального элемента} for i: =2 to n do if min1> a[i] then begin min1: =a[i]; k1: =i end; {исключаем найденный минимальный элемент из массива- можно и по другому} for i: =k1+1 to n do a[i-1]: =a[i]; k1: =n-1; end; min2: =a[1]; k2: =1; {k1 -индекс первого минимального элемента} for i: =2 to n do if min2> a[i] then begin min2: =a[i]; k2: =i end; writeln(min1: 5,min2: 5) {если нужно было сохранить массив в начале программы надо ввести дополнительный массив } end.