Uses crt;
const n=10;
var a: array [1..n] of integer;
x,min:integer;
begin
for x:=1 to n do begin
write('a[',x,']:');
readln(a[x]);
if a[x]>0 then min:=x;
end;
for x:=1 to n do
if (a[x]>0) and (a[x]<a[min]) then min:=x;
writeln;
write('a[',min,']:',a[min]);
<span>end.</span>
Устройство ввод-периферийное оборудование для занесения (ввода) данных или сигналов в компьютер либо в другое электронное устройство во время его работ/Сканер,Видео-и Веб-камера,Цифровой фотоаппарат,Плата видеозахвата,Микрофон,Цифровой диктофон,Мышь,Трекбол,Тачпад,Световое перо,Графический планшет,Тачскрин,Джойстик,Устройства основанные на компьютерном зрении типа Kinect.
Устройство вывода - периферийные устройства, преобразующие результаты обработки цифровых машинных кодов в форму, удобную для восприятия человеком или пригодную для воздействия на исполнительные органы объекта управления.
<span><span>Монитор (дисплей),</span>Принтер,<span>Графопостроитель(плоттер),</span></span>Встроенный динамик,Колонки,<span>Наушники</span>
Ответ:
cities = []
N = int(input())
for i in range(N):
cities.append(str(input()))
new_city = input()
if new_city in set(cities):
print('TRY ANOTHER')
else:
print('OK')
Объяснение:
A=6 b=3 c=2
если a>c и b>c (так и есть)
то x:=2+6*2
Ответ - х=14
Var
p:char;
s,a,b:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите знак действия (+ - * /)');
readln(p);
case p of
'+': s:=a+b;
'*': s:=a*b;
'/': s:=a/b;
'-': s:=a-b;
end;
writeln(s);
end.
