Ответ:
var a:array [1..10] of integer;
i:integer;
b:integer;
begin
for i:=1 to 10 do
if (a[i]>12) and (b=0) then b:=a[i] else if a[i]>12 then b:=b*a[i];
writeln (b);
end.
Объяснение:
Берем массив а под линейную таблицу. Создаем цикл фор, который проверяет сначала если наша переменная с ответом=0 и элемент массива>12, то наш ответ=элементу массива, после этого если элемент массива>12, то цикл умножает этот элемент массива на переменную с ответом. В конце программа выводит ответ.
var a,i,n,k : integer;
begin k := 0;
write ('n = ');
readln (n);
for i := 1 to n do
begin read (a);
if a =0 then
k := k +1; end;
writeln (k,' - кол-во нулей');
<span> end.</span>
Я любитель природы, и правда,там столько красок,тепла.Вот был один случай: я гуляла во дворе и поссорились с подругой,был солнечный день.Ну и ладно-подумала я,-захочет, сама извинится. Но вот началась гроза,я её не боюсь в моя подруга боится.Моя подруга ломала цветы но я была не такая,я была против.Но вот с моей подругой что-то случилось, она стала беречь природу. Любить её.Но внезапно на моей голове очутился красивый венок из ромашек. Я всё поняла. Природа;как Бог все видит,мою подругу одарила она любить её,а мне,за мой оберег к ней она подарила красивый венок из ромашек! вообщем могу сказать,кто природу не тревожит тому она вот и поможет.
print('Вводите числа в одной строке через пробел:')
a = list(map(int,input('Ввод: ').split()))
max = -99999
min = 99999
pos = -1
maxpos = False
for i in a:
if i > max:
max = i
if i < min:
min = i
for i in a:
pos += 1
if (i == max) and (maxpos == False):
maxpos = pos
if i == min:
minpos = pos
a[maxpos] = min
a[minpos] = max
print('Вывод: ',end='')
for i in range(0,len(a)):
print(a[i],end=' ')