const n=10; var min,i: integer; a: array[1..n] of integer; begin randomize; min:=11; for i:=1 to n do begin a[i]:=random(1,10); write (a[i],' '); // для наглядности. можно удалить if (i mod 2 =1) and (a[i]<min) then min:=a[i]; end; writeln; writeln ('min = ',min) end.
Пример: 5 4 7 8 6 2 10 4 9 9 min = 5
2 задача:
const n=10; var max,count,i: integer; a: array[1..n] of integer; begin randomize; max:=0; count:=0; for i:=1 to n do begin a[i]:=random(1,10); write (a[i],' '); // для наглядности. можно удалить if a[i]>max then max:=a[i]; end; for i:=1 to n do if max=a[i] then count:=count+1; writeln; writeln ('max = ',max); writeln ('count = ',count); end.
print("Вопрос №1")
print("В коробке было 8 яиц, 2 вы розбили а 2 сели \nВаш ответ?")
question1 = int(input("..."))
if question1 != 6:
print("В коробке было 6 яйца")
print("Вслушайтесь в задачу внимательно, \n2 вы розбили '2 приготовили, 2 сели'")
print('')
else:
print("ответ правильний!")
print('')
print("Вопрос №2")
print("Меня покупают для еды, \nно никогда не едят. Кто я?\nВаш ответ?")
question2 = input("...")
if question2 != "Тарелка" or question2 != "тарелка":
print("Правильний ответ Тарелка")
print('')
else:
print("ответ правильний!")
print('')
print("Вопрос №3")
print("В каком городе есть: 1/3 от Чили, \n1/3 от Канады и 1/3 от Гондураса\nВаш ответ?")
question3 = input("...")
if question3 != "Чикаго" or question3 != "чикаго":
print("Правильний ответ Чикаго")
print("(Чили - Чи, Канада - ка, Гондураса - го)")
print('')
else:
print("ответ правильний!")
const n=10;
var
min,i: integer;
a: array[1..n] of integer;
begin
randomize;
min:=11;
for i:=1 to n do begin
a[i]:=random(1,10);
write (a[i],' '); // для наглядности. можно удалить
if (i mod 2 =1) and (a[i]<min)
then min:=a[i];
end;
writeln;
writeln ('min = ',min)
end.
Пример:
5 4 7 8 6 2 10 4 9 9
min = 5
2 задача:
const n=10;
var
max,count,i: integer;
a: array[1..n] of integer;
begin
randomize;
max:=0;
count:=0;
for i:=1 to n do begin
a[i]:=random(1,10);
write (a[i],' '); // для наглядности. можно удалить
if a[i]>max
then max:=a[i];
end;
for i:=1 to n do
if max=a[i] then count:=count+1;
writeln;
writeln ('max = ',max);
writeln ('count = ',count);
end.
Пример:
8 5 3 2 2 10 10 9 3 10
max = 10
count = 3